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SPECTRUM 16K, 
48K,128,and + 
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W^ ACORN ELECTRON, 



BBC B and B+ 
ZX8I L&JviC20 



COMMODORE 64 and 128 



DRAGON 32 and 64 



b~g TANDY TRS80 
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DEPTH 



PERSPECTIVE 



VANISHING POINT 



VIEWPOINT 



DIMINISHING SIZE 



SHADING 




Add a feeling of depth and three- 
dimensionality to your graphics by 
incorporating the principles of 
perspective and adding a touch of 
shading 

Most people think of perspective in drawing 
as common sense and tend to draw sketches 
with perspective built in. Surprisingly, per- 
spective is not at all common sense, and the 
early artists had no idea of how to add depth 



to their pictures. In fact, it was only during 
the Renaissance, when painters attempted to 
represent the world in a realistic way that the 
rules of perspective were explored and for- 
mulated. These rules are the same as artists 
use today, and apply equally to pictures 
drawn by a computer. 

The development of perspective took 
several centuries but the rules are not at all 
difficult to understand. Basically, all horiz- 
ontal hnes going from side to side of the 
picture stay horizontal, all vertical lines stay 



vertical, and all hnes going 'into' the picture 
from front to back converge to a point in the 
middle of the picture, called the vanishing 
point. You've already met this idea in the 
article on wireframe drawings, which used the 
principle of perspective to draw the cube — see 
page 605. 

Only parallel lines that are supposed to be 
perpendicular to the picture converge at the 
central principal vanishing point. Other sets 
of parallel lines converge on their own vanish- 
ing point to one side of the principal one. All 
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vanishing points lie on the same line, though, 
called the horizon. It is called this because if 
you could look through the picture to open 
space this would correspond to the real 
horizon. However, do bear in mind that this is 
an imaginary line and needn't correspond to 
any real line in your picture. 

These rules are obviously needed for real- 
istic pictures, but on a simpler level they mean 
you can quickly create a feeling of depth 
simply by incorporating something like a road 
or river or track that vanishes into the 
distance. You can create an even stronger 
effect by using a grid of lines, a trick often 
used in futuristic or space scenes or in TV 
advertisements that use computer graphics. 



PERSPECTIVE GRID 



The first program draws two grids, one 
forming the 'ground' and the other the 'sky', 
with you, the viewer, seemingly suspended 
somewhere in between looking into infinity. 



10 BORDERS: PAPER 0: INK 7 

20 CIS : INPUT "VANISHING FACTORn";V 

40 FOR K= -126 TO 127 STEP 6 

50 LET Y = 174: LETX=K + VK: IFABS 

(X)>127 + (X<1)THENLETX = SGN 

(X)*127-(X<1):LET 

Y = 100 + (X-K)'74/(VK) 

60 PLOT 127-K,100: DRAW 127-X-PEEK 

23677,Y- PEEK 23678 
70 PLOT 1 27 -K,74: DRAW 127-X-PEEK 

23677,174-Y-PEEK 23678 
80 NEXT K 

90LETF = VT{1/6):LETY = F 
100 LET Y = Y-F: IF Y>77 THEN GOTO 140 
110 PLOT 0,97 + Y: DRAW 255,0 
120 PLOT 0,77-Y: DRAW 255,0 
130 GOTO 100 

140 IF INKEY$ = "" THEN GOTO 140 
150 GOTO 20 

20 INPUT"aVANISHING FACTOR ||";V 
30 HIRES 0,1 

40 FOR K= -159 TO 159 STEP 6 
50Y = 199:X = K + VK:IFABS(X)>160 
-(X<1)THENX = SGN(X)'160 + (X<1): 

Y = 111 + (X-K)'80/(VK) 
60L1NE160-K,111,160-X,Y,1 

70 LINE 160-K,90,160-X,199-Y,1 

80 NEXT K 

90F = VT(1/6):Y=F 

100Y = Y-F:IFY>93THEN140 

110 LINE 0,108 + Y,319,108 + Y,1 

120 LINE 0,94-Y,319,94-Y,1 

130 GOTO 100 

140 GET A$:IFA$ = "" THEN 140 

150NRM:GOTO20 



10 MODE0 

20 INPUT-VANISHING FACTOR",V 

30 CLS 

40FORK=-640TO640STEP32 

50 Y = 1 023:X = K + V*K:IF ABS(X) > 640 

(X<1)THEN X = SGN(X)-640 + (X<1) 

Y = 624 + (X-K)*400/(VK) 
60 MOVE640-K,624:DRAW640 

X Y 
70MOVE640-K,400:DRAW 

640-X,1023-Y 
80 NEXT 

90F = Va(1/6):Y = F 
100Y = Y*F:IFY>400 

THEN 140 
110MOVE0,620 + Y: 

DRAW1 280,620 +Y 
120MOVE0,404-Y: 

DRAW1 280,404 -Y 
130 GOTO 100 
140D = GET:GOTO20 
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10 PM0DE4,1 

20 CLS:INPUT" VANISHING FACTOR 

n";V 
30 PCLS:SCREEN1,1 
40FORK=-126TO127STEP6 
50Y = 191:X = K + VK:IFABS(X)>127- 

(X < 1 )THENX = SGN(X)*1 27 + (X < 1 ): 

Y = 111+{X-K)*80/(V'K) 
60LINE(127-K,111)-(127-X,Y),PSET 
70 LINE(127-K,80)-{127-X,191 -Y), 

PSET 
80 NEXT 

90F = VT(1/6):Y = F 
100Y = Y'F:IFY>83THEN140 
110LINE(0,108 + Y)-(255,108 + Y),PSET 
120 LINE(0,84-Y)- (255,84- Y),PSET 
130GOTO100 
140 IF INKEY$ = "" THEN140 ELSE20 

By altering the position of the vanishing 
points you can create quite different effects. 
Enter a low value for V to start with, say 2. 
This makes the lines on the bottom grid 
converge to a point above the middle line (the 
horizon) and those on the top grid converge to 
a point below the horizon. It's this that gives 
you the impression of hovering between the 
two grids. You can dramatically alter the 
appearance of a scene simply by raising or 
lowering the imaginary horizon — try a value 
of 10 to make the viewer feel he is crouching 
down close to the floor. Only if the vanishing 
point of the bottom grid is on the horizon 
would you feel as though you were standing 
normally on the floor. 
The program draws the front-to-back lines 




A perspective 

grid is a quick 

and easy way to add 

depth to your picture 



first in Lines 40 to 80 and then the side-to- 
side lines in Lines 90 to 130. The variable K 
gives the x coordinate of the start of each line 
and then is multiplied by V to give the x 
coordinate of the ends — along the top and 
bottom edge of the screen. The IF ... THEN 
condition in Line 50 just stops the computer 
drawing off the screen. This is not strictly 
necessary on the Acorns but it does make the 
program run faster. 

The remaining lines are drawn by the next 
part of the program. The distance between 
them gets less and less as they get further into 
the distance and this is controlled by multip- 
lying successive y coordinates by VT1/6. The 
value of 1/6 was chosen to give the most 
realistic result, but you can experiment with 
different values. 



DIMINISHING SIZES 



The rules of perspective apply to objects as 
well as lines on a grid. All objects appear 
smaller and closer together in the distance. 
The tops and bottoms of a line of equally- 
sized trees, for instance, lie on a pair of 
parallel lines which converge on the vanishing 
point. 

The trick here is that the brain relates size 
to distance. If you see two objects which are 
known to be of similar size, but one appears to 
be half the size of the other, then the brain 
assumes that one is twice as far away. So by 
drawing objects diminishing in size, they can 
be made to appear to recede. 




Distant objects 
appear smaller 
and closer 
together as this view shows 



If you think about the distances between 
objects, you will see that these, too, behave in 
the same way. Objects which are equally- 
spaced in reality will appear to get closer as 
the distance increases. 

There is a strict mathematical relationship 
between these apparent differences — sizes ap- 
pear according to the inverse of their distance 
from the observer. As the distance gets larger, 
1 /space gets smaller. That is why, in the 
first program, the separation between the 
horizontal lines was raised to the power of 1 /6. 
The 6 here was simply chosen to give a 
suitable spacing, and changing it does not 
affect the appearance of recession. 

The next program shows how to draw 
a perspective view of a roadway lined with 
telegraph poles: 



10 BORDER 0: PAPER 0: INK 7: CLS 

15 DEF FN Y(X) = ((174-VP)/100)*(X- 
128) + VP 

16 DEF FN B(X} = ((20-VP)/100)'(X- 

m)+yp 

17 DEF FN S(T) = SF/SQR ((RW/2)T2 + 
(T'PH)T2) 

20 PRINT '" 

30 INPUT "ENTER DISTANCE BETWEEN 

POLESD";P 
40 INPUT "ENTER WIDTH OF ROADD"; 

RW 
50 INPUT "ENTER HEIGHT OF POLESD"; 

PH 



60 INPUT "ENTER HEIGHT OF VIEW ABOVE 

ROADn";RH 
70 CLS 

80LETSF = 1:LETSF = 160/FNS(0) 
90LETVP = 160/PH*RH-H00: LETX = 228: 

F0RT = 1T015 
100LETX = X-1:IFFNS(T)<FNY(X)- 

FNB(X) THEN GOTO 100 
110 PLOTX,FN B(X): DRAW X- PEEK 

23677,FNY(X}-PEEK 23678: LET 

XJ = (FN Y(X) - FN B(X))/1 0: LET YJ = FN 

Y{X)-XJ 
120 PLOTX-XJ,FNY(X): DRAW 

X - XJ - PEEK 23677,YJ - PEEK 23678: 

DRAW X -^ XJ - PEEK 23677,YJ - PEEK 

23678: DRAW X-kXJ- PEEK 23677,FN 

Y(X)- PEEK 23678 
130 PLOT 255-X,FNB(X): DRAW 

255-X- PEEK 23677,FN Y(X) - PEEK 

23678 
140 PLOT 255-X-XJ,FN Y(X):DRAW 255- 

X ~ XJ - PEEK 23677,YJ - PEEK 23678: 

DRAW 255-X -hXJ- PEEK 23677,YJ- 

PEEK 23678: DRAW 255 - X -h XJ - PEEK 

23677,FNY(X)- PEEK 23678 
150 NEXT T 
160 GOTO 160 

10 DEFFNYT(X) = ((900-VP)/500)* 
(X - 640) + VP:DEFFNYB(X) = ((1 00 
-VP)/500)*(X-640)-l-VP 

20 DEFFNS(T) = SF/SQR((RW/2)T2 + 
(rPH)T2) 



Special techniques 

are needed to produce 

the gradual shading used 

to colour in these spheres 

30 INPUT "□ DISTANCE BETWEEN POLES 

UP 

40 INPUT "WIDTH OF ROADU";RW 
50 INPUT "HEIGHT OF POLES||";PH 
60 INPUT "HEIGHT OF VIEW ABOVE 

ROAD|J";RH 
70 HIRES 0,1 

80SF = 1:SF = 800/FNS(0) 
90VP = 800/PH'RH-H100;X = 1140:FOR 

T=1 TO 15 
100X = X-4:IFFNS(T)<FNYT(X)-FNYB 

(X) THEN 100 
110LINEX/5,191-FNYB(X)/5,X/5,191 

-FNYT(X)/5,1 
1 1 5 XJ = (FNYT(X) - FNYB(X) )/1 0:YJ = FNYT 

(X)-XJ 
120LINE(X-XJ)/5,191-FNYT(X)/5, 

(X-XJ)/5,191-YJ/5,1 

125 LINE (X-XJ)/5,191 -YJ/5,{X-^XJ)/5, 
191 — YJ/5 1 

126 LINE (X-l-'xJ)/5,191-YJ/5,(X-FXJ}/5, 
191-FNYT(X)/5,1 

130 LINE 255-X/5,191 -FNYB(X)/5, 

255-X/5,191-FNYT(X)/5,1 
1 40 LINE 255 - (X -h XJ)/5,1 91 - FNYT(X)/5, 

255-(X+XJ)/5,191-YJ/5,1 

145 LINE 255- (X-hXJ)/5,191 -YJ/5,255- 
(X-XJ)/5,191-YJ/5,1 

146 LINE 255-(X-XJ)/5,191 -YJ/5,255- 
{X-XJ}/5,191-FNYT(X)/5,1 

150 NEXT T 

160 GET A$:IFA$ = "" THEN 160 

170 NRM 

180 RUN 



1 MO DEI :VDU1 9,0,7,0,0,0,19,3,0,0,0,0 

20 PRINT'" 

30 INPUT-DISTANCE BETWEEN POLESD",P 

40 INPUT"WIDTH OF ROADn",RW 

50 INPUT'HEIGHT OF POLESn",PH 

60 INPUT"HEIGHT OF VIEW ABOVE 

ROADD",RH 
70 CLS:VDU23;8202;0;0;0; 
80SF = 1:SF=800/FNS(0) 
90VP = 800/PH"RH + 100:X = 1140:FOR 

T = 1T015 
100 REPEAT:X = X-4:UNTILFNS(T)> = 

FNYT(X)-FNYB(X) 
110MOVEX,FNYB(X):DRAWX,FNYT(X):XJ = 

(FNYT(X) - FNYB(X))/10:YJ = FNYT(X) - 

XJ 
120 MOVEX-XJ,FNYT(X):DRAWX-XJ,YJ: 

DRAWX + XJ,YJ:DRAWX + XJ,FNYT(X) 
130MOVE1280-X,FNYB(X);DRAW1280-X, 

FNYT(X) 
140 MOVE1280-X-XJ,FNYT(X):DRAW 

1280-X-XJ,YJ:DRAI/V1280-X + XJ,YJ: 

DRAW1280-X + XJ,FNYT(X) 
150 NEXT 
160D = GET 
170DEFFNYT(X) = ((900-VP)/500)*(X- 

640) +VP 
180DEFFNYB(X) = ((100-VP)/500)*(X- 

640) +VP 
190DEFFNS(T) = SF/SQR 

((RW/2)A2 + (rPH)A2) 
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10PMODE4,1:PCLS:CLS 

20 DEFFNYT(X) = ((900-VP)/500)*(X- 
640) + VP:DEFFNYB(X) = ((100- VP)/ 
500)*(X - 640) + VP:DEFFNS(T) = SF/SQR 
((RW/2)t2 + (T'PH)T2) 

30 INPUr'DISTANCE BETWEEN POLES ";P 

40 INPUr'WIDTH OF ROAD ";RW 

50 !NPUT"HEIGHT OF POLES ";PH 

60 INPUT"HEIGHT OF VIEW ABOVE ROAD 
"■RH 

70 SCREEN1,1 

80SF = 1:SF = 800/FNS(0) 

90VP = 800/PH*RH + 100:X=1140: 
F0RT=1T015 

100 X=X-4:IFFNS(T) < FNyT(X) - FNYB 
{X)THEN100 

110 LINE(X/5,191 -FNYB(X)/5)-(X/5, 
191-FNYT(X)/5),PSET:XJ = (FNYT(X)- 
FNYB(X))/10;yj = FNYT(X)-XJ 

120 LINE((X-XJ)/5,191 -FNYT(X)/5)- 
((X-XJ)/5,191-YJ/5),PSET:LINE-((X+ 
XJ)/5,1 91 - YJ/5),PSET:LIN E - ((X + 
XJ)/5,191-FNYT{X)/5),PSET 

130LINE(255-X/5,191-FNYB(X)/5)- 
(255-X/5,191-FNYT(X)/5),PSET 

140LINE(255~(X + XJ)/5,191-FNYT 



(X)/5) - (255 - (X + XJ)/5,1 91 - YJ/5), 
PSET:L1NE-(255-(X-XJ)/5,191- 
YJ/5),PSET:LINE - (255 - (X - XJ)/5, 
191-FNYT(X)/5),PSET 

150 NEXT 

160IFINKEY$ = ""THEN160ELSERUN 

The programs let you specify exactly the view 
of the road and then draws an accurate 
perspective picture. 

The program uses three functions to help 
the calculations. FNS(T) works out the actual 
height of each pole in pixels. FNYT(X) and 
FNYB(X) work out the y coordinates of the top 
and bottom of a pole for any x position. You 
can think of these two functions as drawing 
invisible lines along the tops and bottoms, 
converging together at the vanishing point. 

In the main part of the program. Line 80 
calculates a scale factor, SF, which uses the 
height of the previous pole to work out the 
height of the next one. The variable VP works 
out the y coordinate of the vanishing point, 
which depends on both your height above 
ground and the height of the poles. The x 
coordinate is always in the centre for this 
program. 

Fifteen telegraph poles are drawn on each 
side of the road controlled by the loop in 
Lines 90 and 150. The poles on the right- 
hand side are drawn first. 

First of all, in Line 100, starting at the far 
right of the screen, the program decreases the 
X position until the height of the pole as 
calculated by FNS(T) fits exactly between the 
top and bottom lines worked out by FNYT and 
FNYB. When this happens, Line 110 draws 
the pole then the rest of the line works out XJ 
and YJ which are scale factors for the top part. 
Line 120 then draws the top part and the next 
two lines repeat the whole procedure for the 
poles on the left. 



SHADING 



As well as perspective there are other effects 
you can use to give a feeling of depth and 
three-dimensionality to your graphics. The 
most useful of these is shading. Unfortu- 
nately, one of the great limitations of colour 
graphics on home computers is that there is 
no way of controlling the intensity of the 
colours. This makes it very difficult to create 
any realistic shading effects needed for solid- 
looking 3-D objects. 

Large computers offer hundreds of shades 
of each colour so it is easy to draw realistic- 
looking objects. Have a look at the picture on 
page 421, for example. But home computers 
usually have no more than eight colours, so 
what's needed is a method of merging the 
colours more gradually. 




PIXEL PLANETS 



The way to add shading is to colour the pixels 
individually, lighting up only a few for dark 
areas and lighting almost all of them for 
bright areas. The number of coloured pixels 
in any area determines the brightness of that 
part of the object. So by gradually turning on 
more and more pixels from one side to the 
other you can create quite reasonable shading 
effects. The next program uses this technique 
to draw a group of spheres. They look so much 
like planets suspended in space that the 
program also adds a starry background and 
even a ring round one or two of the spheres! 



10 BRIGHT 0: BORDER 0: PAPER 0: INK 7: 

CLS 
20 FOR 1 = 1 TO 100: PLOT 

RND'255,RND*175: NEXT I 
25LETF = 0:FORT = 1 TO 3 
30LETCL = RND'5 + 2 
40LETXC = RND'195-h30:LET 
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YC = RND*115 + 30 
50LETS = RND*30 
60FORK=-STOS 
70 IF INT (K} = AND F = THEN PLOT 

INVERSE 1; OVER 1;XC-L"2,YC: DRAW 

INKCL;L*4,0:LETF = 1 
80LETX = SQR(S"S-K'K) 
90LETX2 = 2*X 
100FORL=-XTOX 
110 PLOT INK CL; INVERSE 1;XC + L,YC + K: 

IFRND*X2-X<LTHEN PLOT INK 

CUXC + L,YC + K 
120 NEXT L 
130 NEXT K 
140 NEXT T 
150 PAUSE 



50S = FNA(25) + 5 

60FORK=-STOS 

70 IF K = 1 AND FNA(4) = 1 THEN CIRCLE 

XC,YC,S*1,5,FNA(4),1 
80X = SQR(S*S-K-K) 
90X2 = 2'X 

100FORL=-XTOXSTEP2 
120 PLOT XC + L,YC-K,1 
130 NEXT L,K 
140 NEXT T 
150 GOTO 150 



10DEFFNA(X) = INT(RND{1)*X + 1);HIRES7,0 
20 FOR K = 1 TO 100;PLOT FNA(360)-1, 

FNA(200)-1,1:NEXTK 
25FORT=1T0 8 

30 XC = FNA(200) + 30: YC = FNA(1 30) + 30 
40CL=FNA(3):CL = CL-(CL = 3) 



10 M0DE1:VDU1 9,0,4,0,0,0,1 9,3,2,0,0,0 
20FORK = 1TO200:PLOT69,RND(1280),RND 

(1024):NEXT 
25F0RT = 1 TO 3 
30 VDU29,(RND(250) + 30)*4;(RND 

(200) + 30) M; 
40CL=RND(3):BC = 
50S = RND(20) + 10 
60FORK=-SnTOS 
80X = SQR(S'S-K*K) 
90X2 = 2-X 



100FORL=-XTOnX. 

110 IF RND(X2)-X>LnTHEN GCOL0,CLn 

ELSE GCOL0,BC 
120PLOT69,L*4,K*4 
130 NEXT: NEXT 
135IFRND(2) = 1THENMOVES'8,0: 

DRAl/V-S'8,0 
140 NEXT 
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10PMODE3,1:PCLS3.SCREEN1,0 
20FORK=1TO100:PSET(RND(256)-1,RND 

(192)-1,2):NEXT 
25FORT=1T0 8 

30XC = RND(195) + 30:YC = RND(131) + 30 
40CL = RND(3):CL = CL-(CL = 3) 
50S = RNO(25)+5 
60FORK=-STOS 
70IFK=1 ANDRND(4) = 1 THENC1RCLE(XC, 

YC),S"1.5,RND(4),0 
80X = SaR(S'S-K*K) 
90X2 = 2*X 

100FORL=-XTOXST£P2 
110IFRND(X2)-X<LTHENCOLOR 

CL ELSEC0L0R3 
120PSET(XC + L,YC-K) 
130NEXTL,K 
140 NEXT T 
150 GOTO 150 

The starry background is drawn by Line 20 
which prints a hundred or so dots in random 
positions on the screen. Eight spheres are 
drawn in all (or three on the Spectrum) 
controlled by the loop in Lines 25 and 140. 
Line 30 chooses a random position for the 
centre of each sphere, the next lines choose a 
random colour and a random size. 

The general procedure for drawing each 
sphere is to start at the bottom and fill it in a 
line at a time. This is controlled by the value K 
which starts at — S, the y coordinate of the 
bottom of the circle and goes to + S at the top. 
Line 80 works out the x coordinate of the start 
of each line using the equation for a circle. 
X2 is the length of each line. 

Lines 100 to 130 colour in the lines. The 
variable L can be thought of as the luminosity 
or brightness of each region and its value 
depends on the distance from the edge of the 
circle, increasing from one side to the other. A 
random number, depending on the length of 
the line, is chosen by Line 110, and if this is 
less than that region's brightness the colour is 
set to black. If it is more, then the colour is set 
to the random colour chosen earlier. 

Finally, Line 70 on the Spectrum, Dragon 
and Tandy and Line 135 on the Acorns draw a 
'ring' around one or two of the spheres. 

See if you can adapt the routine to shade 
other shapes such as a cylinder, or a flat plane. 
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Once you've told your computer 
about your project you can use the 
program to work out a realistic 
schedule and pinpoint any potential 
holdups 



Before you can use the program to evaluate a 
particular project you have to break down the 
project into a number of individual activities 
and estimate the time taken for each one. To 
do this it is almost always best to sketch out a 
rough PERT network as shown in the 
example last time. It doesn't matter if the 
network gets rather tangled at this point as the 
computer will sort all that out for you. 

As you draw out the chart, write the 
descriptions of the activities along the lines 
and a description of the events in the circles. 
Often, though, events won't need a descrip- 
tion so you can leave them blank. The 
Spectrum will allow up to 20 characters for 
the activities and events, the Commodore 
allows up to 80 and the others up to 255. But 
to save on memory it's best to be brief. If you 
know more or less how long the activities will 
take then write the duration in too (see later 
for how to estimate the times). Remember, 
though, that all times must be in the same 
units whether they are hours, half-days, 
weeks or whatever. 

In order for the program to work, the 
network must also be logically possible. 
There must be only one start and one finish 
point and there mustn't be any loops. 

To help you plan out the chart keep asking 
yourself these three questions: 'what can be 
done at the same time as this activity?', 'what 
must be done before this activity can start?' 
and 'what cannot be started until this activity 
is completed?'. 

Working out a PERT network forces you 
to think quite hard about what needs to be 
done. But the advantages are that you can then 
use the computer to work out the far more 
complicated questions of exactly when you 
should start all these activities, whether the 
job can be done at all, which activities are 
holding the whole project up, or which can 
you delay for a few hours, days or weeks. 



.INPUTTING ACTIVITIES 



When you think you've worked out most of 
the chart the next thing to do is to number all 
the events and activities, and INPUT them into 
the program. The order of the numbers is not 
important but the computer needs them to 
work with. A common method is to number 
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USING THE PROGRAM 



PLANNING 



DRAWING A NETWORK 



INPUniNG ACTIVITIES 



PROBABLE AVERAGE TIMES 



INPUniNG EVENTS 



CHECKING FOR INCONSISTENCIES 
CRITICAL PATH CALCULATIONS 



SLACK TIMES AND 



START TIMES 



events 10, 20, 30 and so on like line numbers, 
so that any extra ones inserted later can have 
intermediate numbers 15, 25 ... Activities 
can be numbered, for convenience, by referr- 
ing to the start and end events. For instance 
1020 is the activity between events 10 and 20. 
Or you can use the same numbers for both the 
events and activities if you like. 

When defining the activities and events the 
computer prompts you for the number and 
description, and then it asks you for the 
average time and the 90% sure time. These 
are explained next. 



INPUTTING THE TIMES 



In real life you're very rarely going to be 
certain how long an activity will take — even if 
you've done it many times before. However, 
you can usually estimate the average time and 
take a guess at the 90% sure time. This is the 
time within which you're fairly certain it will 
be done. And this is all the program requires 
you to do. These inputs are deceptively easy 
but in fact the program has to cover four quite 
different situations. You don't need to know 
how these are worked out as the program does 
it automatically, but it does help to under- 
stand what they are. 

The first case is the rare occasion when you 
are absolutely certain of the time. For in- 
stance, if the instructions say 'leave for 24 
hours' then that is what you must do. When 
using the program put both the average and 
the 90% sure times in as the same value. 

The second case is the time that you are 
fairly sure about. For instance, you know you 
can drive to the station in about 30 minutes 
because you've done it many times before, but 
you allow 40 minutes to be on the safe side. 
For this you'd input 30 as the average time 
and 40 as the 90°.o sure time. This corre- 
sponds to the top graph in the diagram on 
page 1469, which is called a normal Gaussian 
curve. 

The third type is the 'wait until it happens' 
time. For instance, you won't know if the roof 
repairs have worked until it rains. This is 
shown in the second graph. Here the 90% 
sure time is about two and a half times the 
average — the average in this case being found 
from records of rainy days for the month. 



The fourth case is the 'all or nothing' time. 
For instance, it may be very unlikely that a 
crucial part in a car is broken (say one in a 
hundred) but if it is it will take 10 days to 
repair. In this case you input the maximum 
time (10 days) as the 90% sure time, and the 
arithmetic average (10 times 355, or ^ of a day) 
as the average. This is shown in the third 
graph. 

There is no need to tell the computer which 
type of graph you're using (if any). The 
computer just takes your two time estimates 
and proceeds accordingly. If they are approx- 
imately equal (up to a ratio of 1 to 1^) it uses 
the Gaussian curve (top graph). If they are 
further apart (the 90% sure time between 1| 
and 21 times the average) it uses a modified 
Gaussian curve (not shown). If it is between 2| 
and 3 times the average it uses the exponential 
curve (middle graph). And if it is more than 
three times the average it uses the bimodal 
curve (bottom graph). 

The reason the program needs to take so 
much care over the uncertain times is because 
the critical path may very well change if all or 
some of the uncertainties conspire to their 
worst cases (or their best). 



INPUTTIMG THE EVENTSi 



When you've input all the activities you 
should then enter the events. This is very 
easy, simply enter a number and a description 
for every event on your chart. 

If you find you have made a mistake you 
can delete any event or activity with the delete 
option or alter it by defining it again and 
entering the correct values. 

The information entered into the computer 
can be displayed in several different tables. 
So, assuming you've typed in the activities 
and events, choose the option to Show Details 
and you'll see a neat list of everything you've 
entered. If you have a printer connected you 
can get a print-out too. 

The point of the program, though, is to 
calculate the critical path through your pro- 
ject so you can work out the most efficient 
way to carry out all of your activities. 



ations it must check that the network is 
logical. If there were any loops the program 
would go round in circles trying to do the 
calculations and the program would crash. 
The Acorn does the data check automatically 
when you ask for a calculation but with the 
other programs you have to choose this option 
yourself. If all is well, the program will print 
out the numbers of the start event and the end 
event. If there are any inconsistencies the 
program will print out a message telling you 
exactly what's wrong, identifying any loops or 
breaks. 



THE CRITICAL PATH 



At last you can select the option to calculate 
the critical path. There are two options. The 
first uses the average times that you input for 
the activities while the second uses the un- 
certain times. Run the average time first. 

The display shows each activity with its 
code number and description. It then tells 
you the time when this activity is able to start, 
the time it must finish, if there is any slack, 
and whether this particular activity is actually 
critical. 

The times are in the same units as those 
you input for the activities. So if you've used 
days, all the figures in the display refer to 
days. For example, if the display tells you that 
activity 3 is able to start 6, must finish 10 and 
has slack 2, this means the earliest you can 
start is on day six but with two days slack 
you could, if it is more convenient, put off 
starting until day eight without upsetting the 
whole project. 

The activities that have slack mean that 
you must start on the day shown or the project 
will be delayed. These are the critical activ- 
ities and it's a good idea to mark these on your 
chart, in red, say. If the starting date for these 
activities starts to slip you'll have to think 
about rearranging the rest of your project to 
make up the time. 

One of the advantages of this program is 
that you can try out many different arrange- 
ments of activities to find the quickest, or 
most efficient. 



DATA CHECK 



UNCERTAIN TIMES 



Before the computer can make any calcul- If many of the times you input were un- 
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certain, and the 90% sure time was different 
to the average time, then you should use the 
other calculate option which takes these un- 
certainties into account. The critical path 
might change when uncertain times are used. 

When you choose this option the computer 
takes each activity and, using the appropriate 
graph mentioned earlier, it selects a random 
time within the limits allowed. Using these 
times it then calculates the critical path for the 
whole network exactly as it did in the last 
option. It also stores away in memory the 
start, end and slack times for each activity. It 
does this 44 more times, selecting a new 
random number each time. (The computer's 
progress is shown on the screen.) The 45 cases 
are needed to give a reasonably random 
sample. The final display printed out takes all 
these samples into account. 

The start and end times are averages of the 
45 cases and so are quite reliable. The slack 
time is also an average, but only of those times 
when there was some slack — a critical activity 
gives no slack at all. 

The critical value shows the percentage of 
times that the activity was part of the critical 
path. This may be 100% in which case it is 
always critical, % when it is never critical, or 
any value in between. For instance, an activity 
may be critical 33% of the time which means 
that the probability of it being critical on any 
one occasion is a third. 

Finally, the last value that's shown is the 
standard deviation of the slack time. This tells 
you how much the slack time is likely to vary 
and gives you an idea of how reliable it is. For 
example, if the slack was 1 .5 and the deviation 
was 1 then the slack may vary from about .5 to 
2.5, so the slack time printed out cannot be 
relied on. If, however, the slack was 1.5 and 
the deviation was . 1 then there's likely to be 
little variation, so the slack time is reliable. 



330 PRINT w$(4);f$;":";: INPUT u$(x): 

PRINTu$(x}: LET s(x)=0: RETURN 
350 LET ee = ee + 1 : LET e(ee) = x; LET 

s(x) = -1:LETf(x) = 0:LETu(x) = u 
360LETt(x) = 0:LETn(x)=0:LET 

u$(x) = "": RETURN 
400LETz = x:FORf = 1TOee:IFe(f)=z 

THEN LET e=f 
420NEXTf:LETe(e) = e(ee):LET 

u(z)=zz + 1: LETee=ee-1: RETURN 
450 LET z = u - INT ((u - 1 )/mh)'mh: LET 

y = 2:LETx = 
460IFx = 0THENIF0 = u(z)OR 

zz+1=u(z) THEN LET x = z 
470 IF u = u(z) THEN LETx = z: RETURN 
480IFy = 1 ORa0 = u(x) THEN RETURN 
490LETz = z + v-mh"INT((z+y-1)/mh): 



LETv=y + y-mh*INT((y + ¥-1)/mh): 
GOTO 460 

500 LET x(1 } = ma: LET x(2) = me: LET 
x(3) = mh: LET x(4) = aa: LET x(5) = ee: 
LET x(6) = ck: LET x(7} = se: LET x(8) = fe: 
PRINT "press[ENTER] ten times": SAVE 
f$ + "x" DATAxQ: FOR x = 1 TO 100: 
NEXTx 

510SAVEf$ + "a" DATAa{): SAVEf$ + "e" 
DATA e(): SAVE f$ + "f" DATA f(): SAVE 
f$ + "g" DATA g(): SAVE f$ + "n" DATA 
nO: SAVE f$ + "s" DATA s(): SAVE 
f$ + "t" DATA t(): SAVE f$ + "u" DATA 
u(): SAVE f$ + "u$" DATA u$(): RETURN 

600 LOAD f$ + "x" DATA x(): LET ma = x(l): 
L£Tme = x(2):LETmh = x(3):LET 
aa = x(4): LETee = x(5}: LETck = x(6): LET 
se=x(7):LETfe = x(8):GOSUB12 

610 LOAD f$ + "a" DATA a(): LOAD f$ + "e" 
DATA e(): LOAD fS + "f" DATA f(): LOAD 
f$ + "g" DATA gO: LOAD f$ + "n" DATA 
ti(): LOAD f$ + "s" DATA s(): LOAD 
f$ + "t" DATA l(): LOAD f$ + "u" DATA 
u(): LOAD f$ + "u$" DATA u$(): LET 
false = 0: RETURN 

700 LET x(1 ) = ma: LET x(2) = me: LET 
x(3) = mh: LETx(4) = aa: LETx(5) = ee: 
LETx(6) = ck: LETx(7)=se: LETx(8) = fe: 
VERIFY f$ + "x" DATA x() 

710 VERIFY f$ + "a" DATA a(); VERIFY 
f$ + "e" DATA e(): VERIFY f$ + "f" DATA 
f(): VERIFY f$ + "g" DATA g(): VERIFY 
f$ + "n" DATA n(): VERIFY f$ + 'V' DATA 
s(): VERIFY f$ + "t" DATA t(): VERIFY 
f$ + "u" DATA u(): VERIFY f$ + "u$" 
DATA u$(): RETURN 

800 GOSUB 942 

810 FOR a = 1 TO aa: LET x = a(a): GOSUB 
932 

820LETy = y + 1+ (LEN u$(x)>4): IF 
y>20 AND a<aa THEN GOSUB 940: 
GOSUB 942 

830 NEXT a: GOSUB 940 

840 GOSUB 946: FOR e = 1 TO ee: LET 
x = e{e): GOSUB 933 

850LETy = ¥ + 1 + (LENu$(x)>4):IF 
y > 20 AND e < ee THEN GOSUB 940: 
GOSUB 946 

860 NEXT e: GOTO 940 

932 PRINT FN l$(FN u(s(x)));FN l$(FN 
u(f(x)));FN l$(t(x));FN !${n(x));ABS u(x); 
"n";u$(x): RETURN 

933 PRINT ABSu(x),u$(x): RETURN 
940 PRINT "press [ENTER] to continue": 

INPUT f$: CLS : RETURN 
942 CLS : PRINT "START FINISH TIME 90% 

CODE TEXT" 
944 PRINT "EVENT EVENT ALLOW SURE": 

LET y = 3: RETURN 
946 PRINT "CODE","TEXT": RETURN 
948 PRINT "PREV AFTER MIN D D MAX": 



LET v = 3: RETURN 
1000 LET d=true: FOR a = 1 TO aa: LET 

x = a(a) 
1020 LETz = s(x): IF s(z)<0 OR zz<u(z) 

THEN PRINT u(x);w$(5);u(z): LET 

rk ^ ffllS'6 
1030 LET z = f(x): IF s(z) <0 OR zz<u(z) 

THEN PRINT u(x);w$(5);u(z): LET 

ck ^ fdlsG 
1040 NEXT a: IF ck = false THEN GOTO 1750 
1050 LET e = 1 
1060 LET z = e(e): IF s(z) <0 THEN GOSUB 

400: IF e<=ee THEN GOTO 1060 
1070 LETe = e + 1:IFe<=ee THEN GOTO 

1060 
1080 FOR e=1 TOee:LETz = e(e):LET 

s(z) = 0: LET f(z)=0: NEXT e 
1082 FOR a = 1 TO aa: LET x=a{a): LET 

s{f(x)) = x:NEXTa 
1090LETse = 0:FORe = 1TOee:LET 

z = e{e) : I F s(z) > TH EN GOTO 1 096 
1092 IFse = 0THEN LETse=z: GOTO 1096 
1094 PRINT w$(1);u(z): IF se<=mh THEN 

PRINT wS(1);u(se): LET se = mh + 1 
1096 NEXT e: IF se = THEN PRINT "ALL 

EVENTS HAVE PR£CEDING";a$ 
1098 IF se=0 OR se>mh THEN GOTO 1750 
1100 FOR e = 1 TOee:LETz = e(e):LET 

t(z) = 0:LETn(z) = 0:NEXTe:LET 

t(se) = 1 
1110 LET lasl=1: FOR c = 2 TO ee+2: IF 

lastoc-1 THEN GOTO 1170 
1120 FOR a = 1 TO aa: LETx = a(a): LET 

V=s(x): IF t{v)<>c-1 THEN GOTO 

1160 
1130 IF ¥=f(x) THEN GOSUB 1200: GOTO 

1160 
1140 IF y< >seTHEN LETy = s(¥): GOTO 

1130 
1150LETy = f(x):LETs(y) = s{x):LET 

f{s(y)) = y: LETt{v)=c: LETfe=y: LET 

last = c 
1160 NEXT a 
1170 NEXT c: PRINT "start event = ";u(se);", 

end event=";u(fe) 
1180 FOR e = 1 TOee;LETy=e{e) 
1190 IF f(y) = AND y< >fe THEN PRINT 

u(y);"NOT LINKED TO END EVENT": LET 

ck = false 
1 1 92 NEXT e: IF ck THEN GOTO 1300 
1194 GOTO 1750 
1200 CLS : PRINT "THERE IS A LOOP AS 

FOLLOVI/S": PRINT "EVENTS ...": LET 

xa = a(a) 
1210 LET x=f(xa}: PRINT u(x): LET y=s(xa): 

PRINT u{y) 
1220 LET y=s(y): PRINT u(y): IF y< >x 

THEN GOTO 1220 
1230 RETURN 
1300LETk = 1:LETak=aa:IFaa=1 THEN 

LETk = 
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1 31 LET ak = INT ((ak + k)/2): IF ak = 

THEN GOTO 1500 
1320 LET k = 0; FOR a = ak + 1 TO aa: LET 

b = a-ak: LET x = 3(a): LET y = a(b): LET 

xe = stx): LETye=s(y) 
1 330 I F t(ye) + ye/zz < = t(xe) + xe/zz TH EN 

GOTO 1360 
1 340 LET a(a} = y: LET a(b) = x: LET k = 1 
1360 NEXT a: GOTO 1310 
1 500 LET n(fe) = last: FOR d = last- 1 TO 1 

STEP -1 
1520FORa = 1TOaa:LETx = a(a):IF 

n(f(x))<>d + 1 THEN GOTO 1560 
1550 LETy=s(x): LET f(y)=f(x): LET , 

n(y) = d 
1560 NEXT a: NEXTd 
1 600 FOR a = 1 TO aa; LET g(a) = a(a): NEXT 

a: LETk = 1 LET ak = aa: IF aa = 1 THEN 

LETk = 
1610 LET ak = INT ((ak + k)/2): IF ak = 

THEN GOTO 1700 
1620 LET k = 0: FOR a = ak + 1 TO aa: LET 

b = a-^ak: LETx=g(a): LETy = g(b): LET 

xe=f(x):LETye = f(y) 
1 630 I F n (ye) + ye/zz < = n (xe) + xe/zz TH EN 

GOTO 1660 
1640LETg(a) = y: LETg(b) = x: LETk = 1 
1660 NEXT a: GOTO 1610 
1700 LET ck=true: RETURN 
1750 LET ck=false: PRINT AT 21,8;"ANY KEY 

TO CONTINUE": PAUSE 0: RETURN 
2000 FOR a = 1 TO aa: LETx = a(a): LET 

z(x) = t(x):NEXTa:GOSUB2100 
2020 FOR a = 1 TO aa: LET x=a(a): LET y(x) 

= (z(f(x))-y(s(x))=z(x))*100:NEXTa 
2030 FOR b = 1 TO aa STEP 5: CLS : FOR 

a = bT0aa + FNa(b+4-aa): LET 

x = a(a) 
2040 PRINT a$;"a";u(x); " = ";u$(x)(T016) 
2050 LETc = y(8(x)): LETd = z(f(x)): PRINT 

"can start n";c;",must endn";d 
2060 PRINT "slackn";d-c-z(x);" 

D (critical n";y(x);"%)": IF t = 1 2 THEN 

PRINT "stddevn = ";q(x); 
2070 PRINT : NEXT a: GOSUB 940: NEXT b: 

RETURN 
2100 FOR e = 1 TO ee: LET y(e(e)) =0: NEXT 

e 
2110 FOR a = 1 Toaa:LETx=a(a): LETy(f 

(x)) = y(f(x)) + FNz(y(s(x))~y(f(x)) 

+ z(x)):NEXTa 
2120 FOR e=1 TO ee: LETi(e(e)) = y(fe): 

NEXT e: FOR a = aa TO 1 STEP - 1 : LET 

x = g(a) 
2130LETz(s(x)) = z(s(x)) + FNa(z(f(x)) 

-z(s(x))-z(x)): NEXT a: RETURN 
3000 FOR a = 1 TO aa: LET x = a(a): LET 

p(x)=0: LETq(x)=0: LETy(x) = 0: NEXTa 
3020 FOR e = 1 TO ee: LETz=e(e): LET 

p(z)=0:LETq(z) = 0:NEXTe 
3030 FOR m = 1 TO 43 STEP 3: FOR a = 1 TO 
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aa: LET w(a) = 2*RND-1: NEXTa 
3040 FOR n = TO 4 STEP 2: CLS : PRINT 

"STARTING CASEn"jm + n/2;"nOF 45" 
3050 FOR a = 1 TO aa: LETx = a(a): LET 

tx = t(x):IFtx = 0THENLETz(x) = 0: 

GOTO 3080 
3052 LET nx = n(x): IF nx=tx THEN LET 

z(x) = tx: GOTO 3080 
3054LETw = FNw(w{a) + n/3):IF 

nx>=u"3 THEN LET 

z(x) = nx*(w<tx/nx): GOTO 3080 
3060 I F nx > tx"2.34 TH EN LET z(x) = - tx'LN 

w: GOTO 3080 
3070LETw = FNx(w-.5): LETz(x)=ABS 

(tx+w'(nx-tx)) 
3080 NEXT a 
3090 GOSUB 2100 
3100 FOR a = 1 TOaa: LETx=a(a): LETz=i 

{f(x))-y(s{x))-z(x) 
3110 LET p(x) = p(x) +z: LET q(x) =q(x) 



+z"z:LETy(x)=y(x) + (z<1.e-6): 

NEXTa 
3120 FOR e = 1 TO ee: LETz=e(e): LET 

p(z) = p(z)+y(z):LETq(z)=q(z) + z(z): 

NEXT e: NEXT n: NEXT m 
3200 FOR e = 1 TO ee: LETz=e(e): LET 

y(z)=VAL(FNI$(p(z)/45)) 
3210 LET z(z) = VAL (FN l$(q(z)/45)): NEXT e 
3220 FOR a = 1 TO aa: LET x = a(a): LET 

y = y(x):LETy(x)=VAL((STR$ 

(y/45*100) + "nnn")(TO4)) 
3230 I F p(x) < 1 .e - 2 TH EN LET p(x) = 
3240 LET z=(45-y) + .1e-9: LET z(x) 

=z(f(x))-y(s(x))-VAL(FNI$(p(x)/Z)) 
3250 LET q(x) = SQR ABS ((q(x) - p(x)' 

p(x)/z)/({z-1) + .1e-9)):IF 

q(x)<1.e-6 THEN LET q(x) = 
3260 NEXT a: GOTO 2030 



as 



600 0PEN1 ,8,8,-0:" + F$ + ",S,R":INPUT 

#1,MA,ME,MH,AA,EE,CK:G0SUB12 
610IFCKTHENINPUT#1,SE,FE 
620 F0RA = 1T0AA:INPUT#1,X,U%(X), 

S%(X),F%(X)J(X),N(X),G%(A),U$(X): 

A%(A)=X:NEXTA 
640 F0R£ = 1T0EE:INPUT#1,X,U%(X), 

S%(X),F%(X)J(X),N(X),U$(X):E%(E) = 

X:NEXTE 
650.INPUT#1,X:IFX>0THEN 

U%(X) = ZZ + 1:GOTO650 
660CLOSE1:RETURN 
700 0PEN1 5,8,1 5,"S0:" + F$:CL0SE15: 

RETURN 
800 G0SUB942 

810 FORA = 1T0AA:X = A%(A):G0SUB932 
820Y = Y + 1-(LEN(U$(X))>12):IFY>20 

AND(A<AA)THENGOSUB940: 

G0SUB942 
830NEXTA:GOSUB940:PRINT"aEVENTS" 

:Y=3 
840 FORE = 1 TOEE;X = E%(E):XP = U%(X): 

GOSUB950:PRINTU$(X) 
850Y = Y + 1-(LEN(U$(X))>12):IFY>20 

AND E<EE THENGOSUB940:GOSUB946 
860 NEXTE:GOTO940 
900 INPUT "□ RESTART PROGRAM (Y/N)"; 

AN$:IFAN$ = "N"THEN50 
910IFAN$<>"Y"THEN900 
920 RUN 
932 XP = FNU(S%(X)):GOSUB950:XP = FNU 

(F%(X)):GOSUB950:XP=T(X):GOSUB950: 

XP = N(X) 
933GOSUB950:XP=ABS(U%(X)): 

GOSUB950 
935 PRINT:PRINT "TEXT=";U$(X):RETURN 

940 IFKK$<>"Y" THENPRINT'HPRESS 
RETURN TO CONTINUE":INPUTF$:PRINT 
CLS$;:RETURN 

941 RETURN 

942 PRINTCLS$"aACTIVITIES" 
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943 PRINT"START FINISH TIMED D 90%" 

944 PRINT"EVENT EVENTD DALLOW SURE 
nnC0DE":Y = 3:RETURN 

950 XP$ = LEFT$(STR$(XP) + " D D D D D 

n",6):PRINTXP$;:RETURN 
960 PRINT "DOUTPUT TO PRINTER (Y/N)?" 
970 GET KK$;IF KK$<>"N" AND KK$< > 

"Y" THEN 970 
980 RETURN 

1000 CK=TR:F0RA = 1T0AA:X = A%(A) 
1 020 XE = S%(X):IFS%(XE) < 0ORZZ < U% 

(XE)THENPRINTU%(X);W$(5)U%(XE): 

CK=FA 
1030 Z = F%(X):IFS%(Z) <0ORZZ<U%(Z) 

THENPRINTU%(X);W$(5);U%(Z):CK=FA 
1040 NEXTA:IFCK=FATHEN1 750 
1050 E = 1 
1060X = E%(E);IFS%(X)<0THENGOSUB 

400:IFE<=EETHEN1060 
1070E = E + 1;IFE<=EETHEN1060 
1080FORE = 1TOEE:X=E%(E):S%(X)=0:F% 

(X) = 0:NEXTE 
1082FORA = 1TOAA:X = A%(A):S%(F%(X)) 

= X:NEXTA 
1090SE = 0:FORE = 1TOEE;X = E%(E}:IFS% 

(X}>0THEN1096 
1092 IFSE = 0THENSE = X:GOTO1096 
1094 PRINTW$(1);U%(X):IFSE< =MHTHEN 

PRINTW$(1};U%(SE):SE = MH + 1 
1096 NEXTE:IFSE = 0THENPRINr'ALL 

EVENTS HAVE PfiECEEDING|J";A$ 
1098 IFSE = 0OR(SE>MH)THEN1750 
1100 FORE = 1TOEE:X=E%(E):T(X)=0: 

N(X) = 0:NEXTE:T(SE) = 1 
1110LA = 1:FORC = 2TOEE + 2:IFLA 

OC-1THEN1170 
1 1 20 FORA = 1 TOAA:X = A%(A):Y = S%(X): 

IFT(Y)<>C-1THEN1160 
1130 IFY = F%(X)THENGOSUB1200:GOTO 

1160 
1140 IF(Y<>SE)THENY=S%(Y):GOTO1130 
11 50 Y = F%(X):S%(Y) = S%(X): F%(S%(Y}) = 

Y:T(Y) = C:FE = Y:LA = C 
1160NEXTA 
1170 NEXTC:PRINT"START EVENT = "; 

U%(SE);", END EVENT = ";U%(FE) 
1180FORE = 1TOEE:Y = E%(E) 
1190 IFF%(Y) = 0AND(Y<>FE)THENPRINT 

U%(Y);"NOT LINKED TO END EVENT" 

:CK = FA 
1192NEXTE:IFCKTHEN1300 
1194 G0T01 750 
1200 PRINTCLS$;"THERE IS A LOOP AS 

FOLLOWS":PRINT"EVENTS...":XA = A%{A) 
1210X=F%(XA}:PRINTU%(X):Y = S%(XA); 

PRINTU%(Y) 
1220Y=S%(Y):PRINTU%(Y):IFY<>XTHEN 

1220 
1230 RETURN 

1300 K = 1:AK = AA:IFAA = 1THENK = 
1310AK = INT((AK + K)/2):IFAK = 0THEN 



1500 
1320 K = 0:FORA = AK + 1TOAA:B = A 

- AK:X = A%(A):Y = A%(B):XE = S%(X): 

YE = S%(Y) 
1330 IFT(YE) + YE/ZZ< =T(XE)+XE/ZZ 

THEN 1360 
1340A%(A)=Y:A%(B)=X:K = 1 
1360 NEXTA:G0T01 310 
1500 N(FE) = LA:F0RD = LA-1T01STEP-1 
1520 F0RA = 1T0AA:X = A%(A):IFN 

(F%(X))<>D + 1THEN1560 
1550Y = S%(X):F%(Y) = F%(X):N(Y) = D 
1560NEXTA,D 
1600 F0RA = 1T0AA:G%(A) = A%(A): 

NEXTA:K = 1:AK = AA:IFAA = 1THENK = 
1610AK = INT((AK + K)/2):IFAK = 0THEN 

1700 
1620 K = 0:FORA = AK + 1TOAA:B=A-AK: 

X = G%(A):Y = G%(B):XE = F%(X): 

YE = F%(Y) 
1630 IFN(YE) + YE/ZZ< = N(XE) +XE/ZZ 

THEN1660 
1650G%(B) = X:G%(A) = Y;K = 1 
1660 NEXTA:GOT0 1610 
1700CK = TR:RETURN 
1750 CK = FA:INPUT"HIT RETURN";HGS; 

RETURN 
2000 FORA = 1 TOAA:X = A%(A):Z(X) =T(X): 

NEXTA:GOSUB2100 
2020 F0RA = 1T0AA:X = A%(A):Y{X} = 

-(Z(F%(X))-Y(S%(X))=Z(X))"100: 

NEXTA;GOSUB2100 
2030 F0RB = 1T0AASTEP4:PRINTCLS$: FOR 

A = BT0AA + FNA(B+4-AA):X = A%(A) 
2040 PRINT:PRINTA$;U%(X);" = ";U$(X) 
2050C = Y(S%(X)):D = Z(F%(X)) 
2055 PRINT'ABLE TO START'jINT 

(C) -1 00/1 00;"MUST FINISH";INT(D'1 00) 

/1 00 
2060 PRI NT"SLACK";INT((D - C - Z(X})* 

1 00}/1 00;"(CRITICAL";INT(Y(X)'1 00)/ 

100;"%)" 
2065 tFT = 12THENPRtNT"STD DEVN = "INT 

(Q(X)*100)/100; 
2070 PRINT:NEXTA:GOSUB940:NEXTB: 

RETURN 
21 00 FORE = 1 TOEE;Y(E%(E)) = 0:NEXTE 
2110 FORA = 1T0AA:X = A%(A):Y(F%(X)) = 

Y(F%(X)) + FNZ(Y(S%(X)) -Y(F%(X)) + Z 

(X)}:NEXTA 
2120 F0RE=1T0EE:Z(E%(E))=Y(FE): 

NEXTE:F0RA = AAT01STEP-1:X = G%(A) 
2130 Z(S%(X)) = Z(S%(X)) + FNA(Z(F%(X)) 

-Z(S%(X)) -Z(X)):NEXTA:RETURN 
3000 FORA = 1 TOAA:X = A%(A}:P(X) = 0:Q 

(X) = 0:Y(X) = 0:NEXTA 
3020 FORE = 1TOEE:X=E%(E):P(X)=0:Q 

(X)=0:NEXTE 
3030 F0RM = 1T043STEP3:FORA=1TOAA: 

W(A) = 2"RND(0)-1:NEXTA 
3040 FORN=0TO4STEP2:PRINTCLS$; 




"STARTING CASE"M + N/2"OF45" 
3050FORA = 1TOAA:X = A%(A):TX = T(X):IF 

TX = 0THENZ(X) = 0:GOTO3080 
3052NX = N(X):IF(NX=TX)TH£NZ{X)=TX: 

GOTO3080 
3054W = FNW(W(A) + N/3):IFNX> =TX-3 

THENZ(X) = - NX"(W<TX/NX):GOTO 3080 
3060 IFNX>TX*2.34THENZ(X) = -TX'LOG 

(Vi/}:GOTO3080 
3070W=FNX(W-.5):Z(X} = ABS(TX + W* 

(NX-TX)) 
3080 NEXTA 
3090GOSUB2100 
3100FORA = 1TOAA:X = A%(A):Z = Z(F%(X)) 

-Y(S%(X))-Z(X) 
3110 P(X) = P(X) + Z:a(X) = Q(X) + Z*Z:Y(X) 

= Y(X) + (Z<1.E-6):NEXTA 
3120FORE = 1TOEE:X = E%(E):P(X) = P(X) 

+Y(X):Q(X) = Q{X) +Z(X):NEXTE,N,M 
3125 IF KK$ = "Y" THEN OPEN 4,4:CMD4 
3200 FQRE = 1T0EE:X = E%(E):Y(X)=VAL 

(LEFTS(STR$(P(X)/45),6)) 
3210 Z(X) = VAL(L£FT$(STR$(Q(X)/45),6)): 

NEXTE 
3220 F0RA = 1T0AA:X=A%(A):Y = Y(X}: 

Y(X) = - VAL(LEFT$(STR$(Y/45-100),4)) 
3230IFP(X)<1.E-2THENP(X) = 
3240Z=(45--Y) + ,1£-9:Z{X) = Z(F%(X)) 

-Y(S%(X))-VAL(LEFTS(STR$(P(X)/Z),6)) 
3250 Q(X) = SQR((Q(X} - P(X)-P(X)/Z)/((Z 

-1} + .1E-9)):IFQ(X)<1.E-6THENQ 

(X) = 
3260 NEXTA:GOTO2030 
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500 IFU%(X) <0GOSUB870:PRINT;ABS(U% 

(X))TAB(10)U$(X):GOTO530 
510IF(EE = ME)THENPRINTW$(2);F$: 

RETURN 
520 6OSUB540 
530 PRIN™$(4);F$:INfUTU$(X): 

S?X = 0:RETURN 
540 EE = EE + 1:E?EE = X:S?X= -1:F?X = 0: 

U%(X) = U 
550T(X) = 0:U$(X) = "":RETURN 
560 Z = X:FORF% = 1 TOEE:IFZ = E?F%THEN 

E% = F% 
570 NEXTF%:E?E% = E?EE:U%(Z)=ZZ + 1: 

EE = EE-1:RETURN 
580Z = U-INT((U~1)/MH)*MH:Y = 2:X = 
590 IFX = 0THENIF0 = U%(Z)ORZZ + 1 =U% 

(Z)THENX = Z 
600 IFU = U%(Z}THENX = Z:RETURN 
610IFY = 1OR0 = U%(Z)THENRETURN 
620Z=Z + Y-MH'INT((Z + Y-1)/MH): 

Y = Y + Y-MH'INT((Y + Y-1)/MH): 

GOTO590 
630 I FAA = 0ORE£ = 0THEN RETURN 

ELSEO = OPENOUT(F$):PRINT # 0,IVIA, 

ME,MH,AA,EE,CK 
640IF(CK)THENPRINT#O,SE,FE 
650FORA%=1TOAA:X = A?A%:PRINT#O,X, 

U%(X) ,S?X,F?X,T(X) ,N(X) ,G?A%,U$(X): 

NEXTA% 
660 FORE% = 1 TOEE:X= E?E%: PRINT # 0,X, 

U%(X) ,S?X,F?X,T(X) ,N(X) ,U$(X):NEXTE% 



670FORX = 1TOMH:IFU%(X)=ZZ + 1THEN 

PRINT#0,X 
680NEXTX:PRINT#O,0 
690 CLOSE #0:RETURN 
700I = OPENIN(FS):INPUT#I,MA,ME,MH, 

AA,EE,CK:GOSUB20 
710IF(CK)THENINPUT#I,SE,FE 
720 F0RA% = 1T0AA:INPUT#I,X,U%(X) 

,S?X,F?X,T(X),N(X) ,G?A%,U$(X): 

A?A% = X;NEXTA% 
730 F0RE% = 1T0EE:INPUT#I,X,U%(X) ,S?X, 

F?X,T(X) ,N(X) ,U$(X}:E?E% = X:NEXTE% 
740INPUT#I,X:IFX>0THENU%(X)=ZZ+1: 

GOTO740 
750 CLOSE #I:RETURN 
760IFAA = 0THEN800ELSEJM = FNP(0):CLS: 

GOSUB850 
770 F0RA%=1T0AA:X = A?A%:G0SUB 830 
780Y = Y + 1-(LEN(U$(X))>12):IFY>20 

AN D(A% < AA)THENVDU3:GOSUB840: 

GOSUB850 
790 NEXTA%:VDU3:GOSUB840 
800 IFEE = 0THENRETURNnELSEnVDUJM, 

10,10:GOSUB870:FORE% = 1TOEE: 

X = E?E%:PRINT;U%(X)TAB(1 0) US(X) 
810Y=Y + 1-(LEN(U$(X))>12):IFY>20 

AND(E%<EE)THENVDU3:GCSUB840: 

GOSUB870:VDUJM 
820 NEXTE%:VDU3:RETURN 
830 PRINT; -FNU(S?X);TAB(6);-FNU(F?X); 

TAB(12);T(X);TAB(18);N(X);TAB(23);U% 

(X);TAB(28)U$(X}:RETURN 
840 INPUr'PRESS RETURN TO CONTINUE", 



F$:CLS:RETURN 
850 VDUJM:PRINT"START FINISH TIME 90% 

nn CODE TEXT" 
860 PRINT"EVENT EVENT ALLOW SURE": 

Y = 3:RETURN 
870 PRINT-'CODED D D D nTEXT":Y=3: 

RETURN 
880 CK = TRUE:F0RA% = 1T0AA:X = A?A% 
890Z = S?X:IFS?Z<0ORZZ<U%(Z)THEN 

PRINT;U%(X);WS(5);U%(Z):CK = FALSE 
900 Z= F?X:IF(S?Z < 0ORZZ < U%(Z))THEN 

PRINT;U%(X);W$(5);U%(Z):CK= FALSE 
910 NEXTA%:IF(CK = FALSE)THEN1350 
920E% = 1 
930Z = E?£%:IFS?Z<0THENGOSUB560:IF 

(E%<EE)THEN930 
940 E% = E% + 1:IF(E%< =EE)THEN930 
950 FORE% = 1TOEE:Z = E?E%:S?Z = 0: 

F?Z = 0:NEXTE% 
960FORA% = 1TOAA:X = A?A%:S?(F?X} = X: 

NEXTA% 
970 SE = 0:FORE% = 1TOEE:Z=E?E%: 

IFS?Z>0THEN1000 
980 IFSE = 0THENSE = Z:GOTO1000 
990PRINTW$(1hU%(Z):IF(SE< = MH)THEN 

PRINTW$(1);U%(S£}:SE = MH + 1 
1000 NEXTE%:IFSE = 0THENPRINT"ALL 

EVENTS HAVE PRECEDING";A$ 
1010 IFSE = 0OR(SE>MH)THEN1350 
1020 FORE%=1TOEE:Z = E?E%:T(Z) = 0:N 

(Z) = 0:NEXTE%:T(SE) = 1 
1030 LAST = 1:FORC = 2TOEE + 2:IF 

LASTOC-1THEN1090 
1040FORA% = 1TOAA:X = A?A%:Y = S?X:IFT 

(Y)<>C-1THEN1080 
1050IF(Y = F?X)THENGOSUB1140:GOTO1080 
1060 IF(Y<>SE)THENY = S?Y:GOTO1050 
1 070 Y = F?X: SPY = S?X: F?(S?Y) = Y: 

T(Y) = C:FE = Y:LAST = C 
1080NEXTA% 
1090 NEXTC:PRINT"START EVENT = ";U% 

(SE);",END EVENT";U%(FE}:DD = INKEY 

(300) 
1100FORE% = 1TOEE:Y = E?E% 
1110 IFF?Y = 0AND(Y<>FE)THENPRINTU% 

(Y);"NOT LINKED TO END EVENT":CK = 

FALSE 
1120 NEXTE%:IF(CK)THEN1 180 
1130GOTO1350 
1 140 CLS:PRINT"THERE IS A LOOP AS 

FOLL0WS""'EVENTS,.,":XA = A?A% 
11 50 X = F?XA:PRINTU%(X}:Y = S?XA: 

PRINTU%(Y) 
1160 Y = S?Y:PRINTU%(Y):IFY<>X THEN 

1210 
1170 RETURN 

1180 K = 1:AK = AA:IFAA = 1THENK = 
1190AK=INT((AK + K)/2);IFAK = 0TH£N1240 
1 200 K = 0: FO R A% = AK + 1 TO AA: 

B = A% - AK:X = A?A%:Y = A?B:XE = S?X: 

YE = SPY 
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1210 IFT(YE) + YE/ZZ< =XE/ZZ+T(XE) 

THEN1230 
1220A?A% = Y:A?B = X:K = 1 
1230 NEXTA%:GOTO1190 
1240 N(FE) = LAST:FORD = LAST- 1T0 

1STEP-1 
1 250 FOR A% = 1 TO AA:X = A? A%: I FN ( F?X) 

OD + 1THEN1270 
1260Y = S?X:F?Y=F?X:N(Y) = D 
1270 NEXTA%:NEXTD 
1280 F0RA% = 1T0AA:G?A%=A?A%:NEXT 

A%:K = 1:AK = AA:IFAA=1THENK = 
1290 AK = INT((AK+K)/2):IFAK=0THEN1 340 
1300 K = 0:FORA%=AK + 1TOAA:B = A%-- 

AK:X = G?A%:Y = G?B:XE = F?X:YE = F?Y 
1310 IFN(YE} + Y£/ZZ< =XE/ZZ + N{XE) 

THEN1330 
1320G?B = X;G?A% = Y:K = 1 
1330 NEXTA%:GOT0 1290 
1340CK = TRUE:RETURN 
1350CK = FALSE:FORX = 1TO1000;NEXTX: 

RETURN 
1360 IF AA = OR EE=0 THENDRETURN 

DELSE IF NOT(CK) THEN GOSUB880 
1365 IF NOT CK THEN RETURN 
1 370 FORA% = 1 TOAA:X = A?A%:Z(X) = T(X): 

NEXTA%:GOSUB1440 
1 380 FORA% = 1T0AA:X = A?A%:Y(X) = - (Z 

(F?X)-Y(S?X) = Z(X))-100:NEXTA% 
1390FORB = 1TO(AA)STEP5:CLS: 

FORA%=(B)TO FNA(B + 4,AA):X=A?A% 
1 400 PRINTAS;" D ";U%(X};" = ";U$(X) 
1410 C = Y(S>X):D = Z(F?X):PRINT"A6LE TO 

STARTn";INT(C-100)/100;"nMUST 

FINISHn";INT(D'100)/100 
1 420 PRINT"SLACK D ";INT({D - C - Z(X))" 

100)/100;"CR[TICALn";Y(X);"%": 

IFT = 9THENPRINT"STD DEVN = ";INT 

(a(X)*100)/100 
1430PRINT:NEXTA%:GOSUB840:NEXTB: 

RETURN 
1440 FORE% = 1TOEE:Y(E?E%) = 0;NEXT£% 
1450 F0RA% = 1T0AA:X=A?A%;Y(F?X) = 

FNZ(Y(F?X) ,Y(S?X) +Z(X)):NEXTA% 
1460 F0RE% = 1T0EE:2(E?E%) = Y(FE): 

N EXTE%:F0RA% = (AA)TOI STEP - 1 : 

X = G?A% 
1470Z(S?X) = FNA(Z(S?X}, Z(F?X}-Z(X)}: 

NEXTA%:RETURN 
1480IFNOT(CK)THENGOSUB880 
1485 IF NOT CK THEN RETURN 
1490 FORA%=1TOAA:X = A?A%;P(X) = 0:Q 

(X) = 0:Y(X) = 0:NEXTA% 
1 500 FORE% = ITOEEiZ = E?E%:P(Z) = 0:0 

(Z) = 0:NEXTE% 
1510 FORM = 1T043STEP3:FORA% = 1TO 

AA:W(A%) = 2*RN0(1 ) - 1 :NEXTA% 
1520 FORN = 0TO4STEP2:CLS: PRINT 

"STARTING CASEn";M + N/2;"nOF 45" 
1530 F0RA% = 1T0AA:X = A?A%:TX = T(X): 

I FTX= 0THENZ(X) = 0:GOTO1 580 



1540 NX = N(X):IF(NX = TX)THENZ(X) = TX: 
GOTO1580 

1550W = FNW(W(A%) + N/3):IFNX> =TX*3 

TH£NZ(X) = -NX'(W<TX/NX);GOT0 1580 
1560 IFNX>TX-2.34THENZ(X) = -TX'LOG 

(W}:GOTO1580 
1570W=FNX(W-.5):Z(X} = ABS(TX+W 

(NX-TX)) 
1580NEXTA% 
1590 6OSUB1440 
1600 F0RA% = 1T0AA:X=A?A%:Z=Z 

(F?X)-Y(S?X)-Z(X) 
1 61 P(X) = P(X) + Z:Q(X) = Q(X) + Z7:Y(X) 

= Y(X) + (Z<1E-6):NEXTA% 
1 620 FORE% = 1 TOEE:Z = E?E%:P(Z) = P(Z) 

+ Y(Z) :Q(Z) = Q(Z) + Z(Z):NEXTE%: 

NEXTN:NEXTM 
1630 F0RE% = 1T0EE:Z = E?E%:Y(Z) =VAL 

(LEFT$(STR$(P(Z)/45) ,6)} 
1640 Z(Z) = VAL(LEFT${STR$(Q(Z}/45} ,6)): 

NEXTE% 
1 650 FORA% = 1 TOAA:X = A?A%:Y = Y(X):Y 

(X) = -VAL(LEFT$(STR$(Y/45*100) ,4)) 
1660IFP(X)<1.E-2THENP(X) = 
1670Z=(45-Y) + .1E-9:Z(X) = Z(F?X)-Y 

(S?X)-VAL(LEFT$(STR$(P(X)/Z},6)) 
1680G(X) = SQR(ABS((a(X)-P(X)*P(X)/Z)/ 

((Z-1) + .1E-9))}:IFQ(X)<1.E-6THEN 

Q(X) = 
1690NEXTA%:GOTO1390 
1700DEFFNA(X,Y) = (X + Y-ABS(X-Y))/2 
1710DEFFNZ(X,Y) = (X+Y + ABS(X-Y))/2 
1720 DEFFNW(X) = -ABS{X)'(X<1) -ABB 

(2-X)'(X>1} 
1730 DEFFNX(X)=X'{2.37572 + X'X* 

(1 5.9402 -XT(1 84.744 -XX688.472 

}))/1 .20667 
1740DEFFNU(X) = -U%(ABS(X' 

(X<=IVIH))-(X = 0ORX>MH))*(X>0 

ANDX<MH) 
1750 DEFFNP(JM):PRINT"'DO YOU WANT A 

PRINTOUT(Y/N)?";:REPEATJM = GET: 

UNTILINSTR("YyNn",CHR$(JM)): = 3 + 

(JM=890RJM = 121) 
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590IFF$<>A$THEN680 

600 F0RB = 1T0AA:IFX=A(B)THENA=B 

610NEXTB:A(A) = A(AA):U(X)=ZZ + 1: 

AA=AA-1:RETURN 
620 IFU(X)<0GOSUB1050:PRINTUSING 

"##### D n";ABS(U(X)};:PRINT 

U$(X):GOTO650 
630 IFEE = ME THENPRINTW$(2);F$:RETURN 
640 GOSUB660 
650 PRINTW$(4);F$:INPUTU$(X):S(X) =0: 

RETURN 
660EE = EE + 1:E(EE) = X:S(X) = -1: 

F(X) = 0:U(X} = U 
670T(X) = 0:N(X)=0:U$(X) = "":RETURN 
680Z = X;FORF = 1TOEE:IFE(F)=Z THEN E=F 



690 N£XTF:E{E) = E(EE):U(Z) =Z2 + 1:EE = 

EE-1:RETURN 
700Z = U-INT((U-1)/MH)*MH:Y^2:X = 
710 IFX=-0AND(0 = U(Z)ORZZ + 1 =U(Z)) 

THENX=Z 
720 IFU = U(Z)THENX = Z: RETURN 
730 IFY = 1OR0 = U(Z)THENRETURN 
740 Z=2+Y-MH*INT((Z+Y-1)/MH): 

Y = Y+Y-MH*INT{(Y + Y-1)/MH): 

GOTO710 
750 OPEN"0",# -1,F$:PRINT# -1,MA; 

ME;MH;AA;EE;CK 
760IFCKTHENPRINT#-1,SE;FE 
770FORA = 1TOAA:X=A(A):PRINT#-1,X; 

U(X);S{X);F(X);T(X);N(X);G(A);U$(X):NEXTA 
780 F0RE = 1T0EE:Z = E(E):PRINT# -1,Z; 

U(Z);S(Z};F(Z);T(Z);N(Z);U$(Z):NEXT£ 
790 F0RX = 1T0MH:IFU(X) = ZZ + 1THEN 

PRINT#-1,X 
800NEXTX:PRINT#-1,0 
810 CLOSE# -1:MOTOR0N:F0RX=1T0 

100:NEXTX:MOTOROFF:RETURN 
820 CLS:PRINT"ERROR TRYING TO SAVE 

DATA":FORK = 1TO1000;NEXT:RETURN 
830 OPEN"l",# -1,F$:INPUT# -1,MA, 

M£,MH,AA,EE,CK:GOSUB20 
840IFCKTHENINPUT#-1,SE,FE 
850 F0RA = 1T0AA:INPUT# -1,X,U(X), 

S{X),F{X)J(X),N(X),G(A),U$(X):A(A) = X: 

NEXTA 
860 F0RE = 1T0EE:INPUT# -1,Z,U(Z),S{Z), 

F(Z)J{Z),N{Z),U$(Z):E(E)=Z:NEXTE 
870INPUT#-1,X:IFX>0THEN 

U{X) = ZZ + 1:GOTO870 
880CLOSE#-1:RETURN 
890 GOSUB1870:A = 0:GOSUB1030 
900 FORA=1TOAA:X=A(A}:GOSUB1000 
910Y=Y + 1:IFY>8ANOA<AAGOSUe 

1020:GOSUB1030 
920NEXTA;GOSUB1020 
930 E = 0:GOSUB1050:FORE = 1TOEE: 

X = E(E):PRINT#PR,USING"# # # # 

# D D n";ABS(U(X));:PRINT# PR,U$(X) 
940Y=Y + 1:IFY>15ANDE<EEGOSUB 

1020:GOSU61050 
950 NEXTE:GOTO1020 
960 CLS:PRINT" ARE YOU SURE (Y/N) ?" 
970 T$ = INKEY$:IFT$<>"Y"ANDT$< > 

"N"THEN970 
980 I FT$ = "N "THEN RETURN 
990 CLS:END 
1000 PRINT #PR,USING"# # # # # n # 

####n#####n#### 

#nn#####";FNU(S(X)KFNU 

{F(X)}J(X),N(X),ABS(U(X));:IFPR = 

THENPRINT 
1010 PRINT#PR,"n";U$(X):RETURN 
1020 IFPR=0THENPRINT"PRESS ENTER TO 

CONTINUE":INPUTF$:CLS:RETURNELSE 

RETURN 
1030CLS:IFPR = 0ORA=0THENPRINT#PR, 
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"START FINISH TIMED D n90% 

ACTIVITY":Y = 3 
1040 RETURN 
1050CLS:IFPR = 0ORE = 0THENPRINT#PR, 

"nDEVENTnnTEXT":Y=3 
1060 RETURN 

1070 CK=TR:F0RA=1T0AA:X = A(A) 
1080Z = S(X):IFS(Z)<0ORZZ<U(Z)THEN 

PRINTA$;U(X);W$(5);U(Z);CK = FA 
1090Z = F(X}:IFS(Z)<0ORZZ<U(Z)THEN 

PRINTA$;U(X);W$(5};U(Z):CK = FA 
1100 NEXTA:IFCK=FATHEN1540 
1110E = 1 
1120 Z = E(E):IFS(Z) <0GOSUB680:IF 

E<=EETHEN1120 
1130E = E + 1:IFE<=EETHEN1120 
1140FORE = 1TOEE:Z = E(E):S(Z)=0: 

F(Z) = 0:NEXTE 
1150 F0RA=1T0AA:X=A(A):S(F(X})=X: 

NEXTA 
1160SE = 0:FORE = 1TOEE:Z = E(E):IF 

S(Z)>0THEN1190 
1170 IFSE = 0THENSE=Z:GOTO1190 
1180 PRINTW$(1);U(Z):IFSE< =MH THEN 

PRINTW$(1);U(SE):SE = MH + 1 
1190 NEXTE:IFSE = 0THENPR1N?'ALL 

EVENTS HAVE PRECEDING"iA$ 
1200 IFSE = 0ORSE>MH THEN1540 
1210FORE = 1TOEE:Z=E(E):T(Z)=0: 

N(Z) = 0:NEXTE:T(SE) = 1 
1220LA=1:FORC = 2TOEE + 2:IF 

LAOC-1THEN1280 
1230 F0RA = 1T0AA:X = A(A}:Y=S{X);IF 

T(Y)<>C-1THEN1270 
1240 IFY = F(X)GOSUB1330:GOTO1270 
1250 IFY< >SE THENY=S(Y):GOTO1240 
1260Y = F{X):S(Y) = S(X):F{S(Y))=Y: 

T(Y)=C:FE = Y:LA = C 
1270 NEXTA 
1280 NEXTC:PRINT"START EVENT ";U(S£); 

", END EVENT ";U{FE) 
1290 FORE = 1T0EE:Y = E(E) 
1 300 IFF(Y) = 0ANDY <> FE THENPRINT U(Y) 

;"NOT LINKED TO END EVENT": CK= FA 
1310NEXTE:IFCKTHEN1370 
1320GOTO1540 
1330 CLS:CK = FA:PRINT"THERE IS A LOOP 

AS FOLLOWS":PRINT"EVENTS . . . ": 

XA = A(A) 
1340X = F(XA):PRINTU(X):Y=S(XA):PRINT 

U(Y) 
1350 Y = S(Y):PRINTU(Y):IFY< >X THEN 

1350 
1360 F0RX = 1T01 000: NEXT: RETURN 
1370 K = 1:AK = AA:tFAA = 1THENK = 
1380 AK = INT((AK+K)/2):IFAK = 0THEN 1430 
1390 K = 0:FORA=AK + 1TOAA:B = A-AK: 

X = A(A):Y = A(B):XE = S{X) :YE = S(Y) 
1400 IFT{YE) + YE/ZZ<=XE/ZZ + T(XE) 

THEN1420 
1410A(A)=Y:A(B) = X:K = 1 



1420 NEXTA:G0T01 380 

1430 N(FE) = LA:FORD = LA- 1T01 STEP -1 

1440FORA = 1TOAA:X=A(A):IFN(F(X))<> 

D + 1THEN1460 
1450Y = S(X):F(Y) = F(X):N(Y) = D 
1460 NEXTA: NEXTD 
1470 F0RA = 1T0AA:G(A) = A(A):NEXTA: 

K = 1:AK = AA:IFAA = 1THENK = 
1 480 AK = ! NT( (AK + K)/2) : I FAK = 0TH EN 

1530 
1490 K = 0:FORA=AK + 1TOAA:B = A-AK: 

X = G(A):Y = G(B):XE = F{X):YE = F(Y) 
1500IFN(YE) + YE/ZZ< =XE/ZZ + N(XE) 

THEN 1520 
1510G(B) = X:G{A) = Y:K = 1 
1620 NEXTA:GOTO1480 
1530CK = TR:RETURN 
1540CK = FA:FORX = 1TO1000:NEXTX: 

RETURN 
15S0GOSUB1870:FORA = 1TOAA:X=A(A); 

Z(X)=T(X):NEXTA:GOSUB1620 
1560 F0RA = 1T0AA:X=A(A):Y(X) = 

-(Z(F(X))-y(S(X)) = Z(X))"100:NEXTA 
1570 F0RB = 1T0AASTEP3:CLS:F0RA = Bn 

T0AA + FNA(B + 2-AA):X=A{A) 
1580 PRINT #PR,A$;U(X);" = ";U$(X) 
1590C = Y(S(X)):D=Z{F(X)):PRINT#PR, 

"CAN START";C;"MUST END";D 
1600 PRINT#PR,"SLACK";INT(100" 

(D - C - Z(X)))/100;"(CRITICAL"iY(X); 

"%)":IFT = 9THENPRINT#PR,USING 

"STDDEVN=####,##";Q(X) 
1610 PRINT #PR:NEXTA:GOSUB1020;NEXTB: 

RETURN 
1620 FORE = 1TOEE:Y(E(E)) = 0:NEXTE 
1630 F0RA=1T0AA:X=A(A):Y(F(X)) = 

Y(F(X)) + FNZ(Y(S(X))-Y(F(X)) + Z(X)): 

NEXTA 
1640FORE = 1TOEE:Z(E(E))=Y(FE):NEXTE: 

F0RA = AAT01STEP-1:X=G(A) 
1650 Z(S(X)) = Z(S(X)) + FNA(Z(F(X)) - 

Z(S(X))-Z(X)):NEXTA:RETURN 
1660 GOSUB1870:FORA = 1TOAA;X = A(A): 

P(X) = 0:a(X) = 0:Y(X)=0:NEXTA 
1670 FORE = 1TOEE:Z = E(E):P(Z) = 0: 

Q{Z) = 0:NEXTE 
1680 F0RM = 1T043STEP3:F0RA = 1T0AA: 

W(A) = 2*RND(0)~1:NEXTA 
1690 FORN = 0TO4STEP2:CLS:PRINT 

"STARTING CASE";M + N/2;" OF 45" 
1 700 FO RA = 1 TOAA:X = A(A) :TX = T(X} : I F 

TX = 0THENZ(X) = 0:GOTO1750 
1 71 NX = N (X) : I FNX = TX TH ENZ(X) = TX: 

GOTO1750 
1 720 W = FNW(W(A) + N/3):IFNX > =TX'3 

THENZ(X)= -NX-(W<TX/NX):GOTO 

1750 
1730 IFNX>TX'2.34THENZ(X) = -TX'LOG 

(W):GOTO1750 
1740W = FNX(W-.5):Z(X) = ABS(TX + W* 

(NX-TX)) 



1750 NEXTA 

1760 GOSUBl 620 

1770FORA = 1TOAA:X = A(A):Z=Z(F(X))- 

Y(S(X!)-Z(X) 
1780 P(X) = P(X) +Z:Q(X) = a{X) + Z*Z: 

Y(X)=Y(X) + (Z<1E-6):NEXTA 
1 790 FORE = 1T0EE:Z = E(E}:P(Z} = P(Z) + 

Y(Z):a(Z) = Q{Z) + Z(Z): 

NEXTE,N,M 
1800 F0RE = 1T0EE:Z = E(E):Y(Z)=VAL 

(LEFT$(STR$(P(Z)/45),6)) 
1810 Z(Z) = VAL(LEFT${STR$(a(Z)/45),6)): 

NEXTE 
1820 F0RA = 1T0AA:X = A(A):Y = Y(X): 

y(X) = -VAL(LEFT$(STR$(Y/45'100),4)) 
1830IFP(X)<1E-2THENP(X) = 
1840Z=45-Y + .1E-9:Z{X)=Z(F(X))- 

Y(S(X))-VAL(LEFT$(STR$(P(X)/Z),6)) 
1850Q(X) = SQR(ABS((a(X)-P(X)'P(X)/Z)/ 

((Z-1) + .1E-9))):IF0(X)<1.£-6THEN 

O(X) = 
1860NEXTA:GOTO1570 
1870IF(PEEK(65314)AND1) = 1THENRETURN 

ELSECLS:PRINT"SEND TO PRINTER OR 

SCREEN (P/S)?" 
1880 Q$ = INKEY$:IFa$<>"P"ANDQ$ 

<>"S"THEN1880 
1890IFQ$ = "P"THENPR=-2 
1900 CLS:RETURN 

Dragon users with a Dragon Data disk drive 
should make these changes: 

750 ERROR GOTO820:CREATE F$: 

FWRITE FS;MA;£$;ME;E$;MH;E$; 

AA;E$;EE;E$;CK 
760 IFCK THENFWRITEF$;SEiE$;FE 
770FORA = 1TOAA:X=A(A):FWRITEF$;X;E$; 

U(X);E$;S(X);E$;F(X);E$;T(X};E$;N(X);E$; 

G(A);E$;U$(X):NEXTA 
780FORE = 1TOEE:Z = E(E):FWRITEF$;Z;E$; 

U(Z);E$;S(Z);E$;F(Z);E$;T(Z);E$;N(Z);E$; 

U${Z): NEXTE 
790 F0RX = 1T0MH:IFU(X) = ZZ+1THEN 

FWRITEFSiX 
800 NEXTX:FWRITEF$;0 
810CLOSE:RETURN 
820 CLS:PRINT"ERROR TRYING TO SAVE 

DATA":FORK = 1TO1000:NEXT: 

RETURN 
830FREADF$,FROM0;IViA,ME,MH,AA,EE,CK: 

GOSUe20 
840 IFCK THENFREADF$;SE,FE 
850FORA = 1TOAA:FREADF$;X,U(X),S(X), 

F(X),T(X),N(X),G(A),U$(X):A(A)=X: 

NEXTA 
860FORE = 1TOEE:FREADF$;Z,U(Z),S(Z), 

F(Z)J(Z),N(Z),U$(Z):E(E)=Z: 

NEXTE 
870FREADF$;X:IFX>0TH£NU(X)=ZZ + 1: 

GOTO870 
880 CLOS£:RETURN 
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A PICTURE 
TEST CARD PRO 




RAM 



If you get eyestrain when you're 
fiddling with your hardware, you 
could be due for a change of 
monitor. This test program sorts the 
flicker from the fuzz 



Until quite recently the price of a monitor has 

been well outside the pocket of most home 
computer owners and, in general, people have 
had to make do with the family TV set. But 
the ordinary TV has several limitations, and if 
you have been using one for some time you 
are probably only too well aware of them, The 
picture on a TV set is continuously flickering 
and juddering, and this can cause eye strain 
and headaches if you have to look at it for long 
periods — if you are doing any wordprocess- 
ing, for instance. Also, the resolution is 
usually quite low which means detail is lost in 
graphics and games. And, of course, the TV is 
often hijacked by the rest of the family who 
want to watch the news or a film. 

But now that the price of monitors has 
started to fall, and good quality combined 
TV/monitors have been introduced, you may 
be considering buying a set to use specifically 
with your computer. The question is, how do 
you choose which to buy? 

The article on page 445 should help you 
make your choice as it describes the dif- 
ferences between a TV and a monitor and 
explains such technical terms as bandwidth, 
signal types and so on. But in the end, after 
you've sorted out all the technical details, the 
important point is what the picture looks like 
to you, when connected up to your computer. 
It is essential to use your own computer in 
these tests since not all TVs and monitors are 
compatible with all computers, and even 
computers of the same make can produce 
quite different results. So take your computer 
to the shop and test the complete system. 

The test card program given below is 
designed to help you assess different systems. 
It is not an absolute test but it does give you a 
fairly objective way of comparing several TVs 
or monitors— and it is short enough to type in 
in the shop. 



A SCREEN TEST 



The Spectrum, Commodore and Vic 
programs print a single, combined test card, 
while the Acorn, Dragon and Tandy 
programs use several routines to test different 
modes, Here are the points to look out for. 

First check whether the picture is centred 
in the screen. This is most critical on the 



Acorns as the computer doesn't leave a border 
round the picture and some text may be lost. 
Also on the Acorns check if the characters in 
the corners are legible — or, indeed, if any 
characters are legible. 

Now have a look at the rectangles or the 
edge of the test card. On most sets the lines 
near the edge of the screen bulge outwards. 

Are all of the lines clearly visible, or do 
they merge together? This is a good test of the 
resolution. On most colour TVs and monitors 
the resolution is better in one direction than 
the other due to the way the coloured phos- 
phor dots are arranged on the screen, but 
some monitors use a different arrangement of 
dots and give a clearer picture. 

If the program draws circles are they really 
circular or are they oval? 

Now check the colour. The edges of the 
coloured squares should be sharp, not fuzzy, 
and the colours shouldn't run into each other. 
The coloured text on the different coloured 
background should be clearly readable. (On 
some sets, with some colour combinations, it 
may be completely illegible.) The density of 
the colour may vary, too, from set to set so try 
to decide which you prefer. 

Lastly, check the whiteness of the lines or 
text to see if there's any colour fringing. 

Of course, the final deciding point may be 
the cost, but at least you'll be in a position to 
choose the best in your price range. 



5FORp = 0TO7:FORi = 0TO7:fFp = i 

THEN GOTO 200 
6 PAPER p: INK i: BORDER 0: CLS 
1 FOR n = TO 1 2 STEP 2: PLOT n,n: DRAW 

0,175-2*n: DRAW 255-2"n,0: DRAW 

0,-(175-2*n): DRAW -{255-2'n),0: 

NEXTn 
20 FOR n = 1 TO 20 STEP 2: CIRCLE INK 

i;128,85,n: NEXTn 
30 FOR n = 5 TO 7: PRINT INK i;AT n,8;"";AT 

n -hi 0,8;"": NEXTn 
40 PRINT AT 4,8;: FOR m = TO 1 : FOR 

n = 0TO 7: PRINT PAPER n;"n";: NEXT 

n: NEXT m 
50 PRINT AT 1 8,8;: FOR m = TO 1 : FOR 

n = 0TO 7: PRINT PAPER n;"n";: NEXT 

n: NEXTm 



55 PRINT AT 2,4;: FOR n = TO 2: FOR 
m = TO 7: PRINT INK m; PAPER p;CHR$ 
(64 + n*7 + m);: NEXTm: NEXTn 

57 PRINT AT 19,4;: FOR n = TO 2: FOR 
m = 0TO7: PRINT BRIGHT 1; INK m; 
PAPER p; CHR$ (64 -h n'7 + m};: NEXT m: 
NEXTn 

60 FOR n = TO 7: BORDER n: PAUSE 50: 
NEXT n: PAUSE 50 

200 NEXT i: NEXT p 

sa 

10 PRINT "□":Z$ = "g||U":ZZ$ = 

"ncnoDMnMnoaDnonRDE 
nn6n4n" 

20 X = 1 040:X1 = 1 944:X2 = 1 904: FO R Z = 

T015:X = X-1:XX = X 
30 FOR ZZ = TO Z:P0KE XX,160:POKE 

54272 + XX,Z:XX = XX -^ 41 :NEXT ZZ 
35 POKE 646,Z: PRINT SPC(16)"a"ZZ$;:Z$ 

= Z$-l-"a" 
40 FOR Z1 =0 TO 4:P0KE X1,160:POKE 

54272 -h XI ,Z:POKEX2,102:POKE 

54272 + X2,Z 
50X1=X1+1:X2 = X2 + .5:NEXTZ1,Z 

60A$="GDSIIUnailllinB 
llllDDnaiiiiiinuun 
Blllllinn 

70 B$="nnauijnaminn 

ailllliniinaillllina 

□ □Blllin" 

75PRlNTZ$"HHaa":FOR2 = 0TO 
39:POKE 646,Z:PRINT "aH"vNEXT Z 
80 FOR Z = TO 15:P0KE 646,Z:PRINT Z$A$ 

Z$SPC(6}B$ 
85 PRINT "a"SPC(16)Z2$ 
90 GET K$:IF K$ = "S" THEN 01 =01 +1 
100 IF KS = "a" THEN C2 = C2-M 
110 CI =C1 AND 15:C2 = C2 AND 15:P0KE 

53280,01: POKE 53281,02 
120NEXTZ:GOTO80 



10 PRINT "□":Z$ = "@||":ZZ$ = "n 

vnincnn2n0n";Ci=44 

20 X = 7690:X1 =8010:X2 = 7988:FOR Z = 

T0 7:X = X-1:XX = X 
30 FOR Z2 = TO Z:POKE XX,160:POKE 

30720 -hXX,Z:XX = XX + 23:NEXTZZ 
35 POKE 646,Z:PRINT SPC(10}"fl"ZZ$;;Z$ 

=z$+"M" 
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Test cards for each computer. 
Clockwise from the top, Spectrum, 
Acorn, Dragon and Commodore 



40 FOR Z1 = TO 21 :POKE XI ,1 60:POKE 
30720 + XI ,Z:POKE X2,102:POKE 30720 
+ X2,Z 

50 XI = X1 + 1 :X2 = X2 + .1 2:NEXT Z1 ,Z 

60A$ = "nnflUaMIIIID||a 
aiinBIIIIBIIIinailQ 

DD" 

70 B$="nnaijnHlllinun 
ailllliaunaillllliau 
□ Blllllinunaillin 

75 PRINT ZS"HHHH":FOR Z = TO 

21:P0KE 646,Z AND 7:PRINT "flH";: 

NEXTZ 
80 FOR Z = TO 7: POKE 646,Z:PRINT ZSA$ 

Z$SPC(4)B$ 
85 PRINT "a"SPC(10)ZZ$ 
90 GET K$;IF K$ = "B" THEN CI =C1 +1 
110C1=C1 AND 255;POKE 36879,01 
120 NEXTZ: GOTO 80 



10 MODE0 

20FORT=1 TO1000:VDURND(96) + 31: 

NEXT 
30D = GET:CLS:S = 2 
40 FOR T=0 TO 520 STEPS 
50MOVET.T:DRAW1276-TJ:DRAW1276-T, 



1023-T:DRAWT,1023-T:DRAWTJ 
60T=T + (TnDIV50):NEXT 
100D = G£T 
110 FOR = TO 7:MODE2;GCOL0,128 + Q: 

CLG:COLOUR128 + Q 
120Y = 824 
130FORT = 1 10 2 
140 X = 640 -4*32 
150 FOR C = TO 7 
160GCOL0,C 
170 PROCB 
180X = X + 32 
190 NEXT 
200Y = 168 
210 NEXT 

220VDU29,640;512; 
230 W = 

240 FOR R = 32 TO 256 STEP 32 
250GCOL0,W;W = W+1 
260 PROCC 
270 NEXT 

280 FOR T = TO 7 
290 COLOURT 
300PRINnAB(0,T + 11)"ABCDE"TAB(15, 

T + 11)"ABCDE" 
310 NEXT 

320D = INKEY(300):NEXT 
330 END 
340 DEF PROCB 
350 MOVEX,Y:MOVEX-I-32.Y:PLOT85X 



Y + 32:PLOT85,X + 32,Y + 32 
360 ENDPROC 
370 DEF PROCC 
380 LOCALT 

390 MOVE COS(Pr2 + .15)*R,0 
400FORT=-.1TOPI'2 + .15STEP.15 
410 DRAW COS(T)*R,SIN(T)*R 
420 NEXT: ENDPROC 



SSD 



10PMODE4,1:PCLS:SCREEN1,1 

20 FORK = 0TO1:FORJ = 0TO15STEPK+2 

30 LINE(K'16 + J,K'16+J)-(255-K* 

16-J,191-K'16-J),PSET,B 
40 NEXTJ,K 
50 FORK=100TO154 STEP2:LIN£(K,85) 

-(K,105),PSET:LINE(113,K-32)-(141, 

K-32),PSET:NEXT 
60 FORK = 1TO100 STEP 10:CIRCLE(127,95), 

K,5:NEXT 
70IF1NKEY$ = ""THEN70 
80PMODE1,1:PCLS:SCREEN1,0 
90FORJ = 0TO191 STEP48:COLORJ/48 + 1 
1 00 LI N E (0, J ) - (255, J + 47), PS ET, B F: N EXT 
110 FORJ = 0TO255 STEP63:FORK = 0TO63 

STEP4:COLORJ/63 + 1 
120 LINE(K+J,0)-(K + J,191),PSET 
130 NEXTK,J 

140IFINKEY$ = ""THEN140 
150S = 1-S:SCREEN1,S:GOTOU0 
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CLIFFHANGER: 
SETTLING THE SCORE 



Not everything that happens to 
Willie is bad. Sometimes— with your 
able assistance— he wins through to 
his reward, retrieves his picnic and 
clocks up more score 



All sorts of things have happened to Willie. 
He has fallen down holes, been bitten by 
snakes, hit by boulders and drowned by the 
sea. And in the last part of Cliffhanger Willie 
was killed and buried and sent down to 
Hades. 

But now it is time for Willie to get his 
reward. Here he finally reaches his goal, 
manages to retrieve an item of his picnic and 
increment his score. 



This first little routine sounds the reward 
bell, puts Willie up onto the next level, speeds 
the game up and gives him a massive boost to 
his score. 



rwd 



org 59788 


Id a, (58732) 


Id de,523 


dec a 


Id hl,806 


Id (58732),a 


call 949 


lda,2 


Id a,(57344) 


ldb,5 


inca 


call 59900 


res 2,a 


jp 58601 


Id (57344),a 





The first three instructions sound the reward 
bell. This is done using the BEEPER routine, at 
949 in the Spectrum's ROM, and the pitch 
and duration parameters are fed to it in the 
usual way, via the DE and the HL register 
pairs. 






ON THE LEVEL 



The level number is then loaded from its 
storage location at 57,334 into the ac- 
cumulator. The contents of the accumulator 
are then incremented. 

But there are only four levels in the game, 
so you don't want the level number to get any 
bigger than 3. This is prevented by using the 
res 2,a instruction which resets bit 2 of the 
accumulator. When level number 3 is in- 
cremented to 4, bit 2 is set. Resetting it 
returns the level number to and puts the 
game back on level one. 

The result of these operations is stored by 
57,334 when it can be referred to when setting 
up the game. 



ABOUT SPEED 



The delay at 58,732 is then reduced by one. 
Its value is loaded into the accumulator, 
decremented and stored back in 58,732. This 
speeds the game up as the processor does not 
pause so long in the main routine. 

It is originally set to 50, so as long as Willie 
does not reach the reward more than fifty 
times the game will go on getting faster and 
faster. This makes the game more and more 
difficult. Even though you will be performing 
the same four levels over and over again, each 
time they will get faster. 




PICKING UP POINTS 



For reaching the reward, Willie picks up an 
extra 500 points. This is done by calling the 
score routine at 59,900 and feeding para- 
meters to it in the A and B registers. 

The 2 loaded into A specifies that it is the 
digit in the second column from the left — the 
hundreds — is to be incremented. And the 5 in 
B tells the routine how many times to incre- 
ment that digit. Incrementing the hundreds 
five times increases the score by 500. 

The processor then jumps back to the 'new 
life routine'— labelled niv— at 58,601 and 
starts Willie off again at the bottom of the 
slope. 



SCORING 



The next little routine keeps track of Willie's 
score and increments it when he reaches a 
reward or scales another part of the cliff. 



sen 



scr 



org 59900 
Id ix,57337 
Id d,0 
Id e,a 
add ix,de 
push ix 
call sdi 
pop ix 
djnz scr 
call 58939 



sdi 



ret 

lda,(ix-i-0) 
inca 
cp10 
jr nz,sno 
lda,0 

Id (ix + 0),a 
dec ix 
jr sdi 
sno Id (ix + 0),a 
ret 
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MOVING UP A LEVEL 



SPEEDING UP THE GAME 



ADDING SCORE 



FINDING YOUR PLACE 



DEALING WITH CARRIES 



The 'CUFFHANGER' listings published in this 
magazine and subsequent parts bear absolutely no 
resemblance to, and are in no way associated with, 
the computer game called 'CUFF HANGER' re- 
leased for the Commodore 64 and published by 
New Generation Software Limited. 



Memory location 57,337 is the start of the 
score variable which is loaded with zeros in 
the initialization routine on page 1101. D is 
set with zero and E is loaded with the contents 
of the accumulator. Remember, the ac- 
cumulator carries the column number when 
the processor enters this routine. 

The contents of DE are then added to those 
of IX and the result is left in IX. This 
effectively moves the data pointer along the 
digits, which are stored in 57,337 onwards, 
until it gets to the one specified by the 
contents of A. This position is stored tem- 
porarily by pushing the contents of IX onto 
the stack. The sdi routine is then called. 



DEALING WITH DIGITS 



The sdi routine is the one 
that actually deals with the digits. It starts 
off loading the accumulator with the 
digit pointed to by IX. The 'O offset is 
required here because of the^ \, 
format of the instruction. 

The digit is then incremented and 
compared to 10. If it has reached 10, you 
will have to increment the next digit too. So 
on a non-zero result — in other words, 
the first digit hasn't been incremented to 
10 yet — the jr (a instruction sends the 
processor forward to the sno label where the 
incremented digit is stored 



back in the location it was taken from. 

If the digit you're dealing with has been 
incremented up to 10, the jump does not 
occur and the processor continues with the 
next instruction. Zero is then loaded into 
and stored back in the appropriate digit. Then 
IX is decremented so that it points to the next 
digit to the left. The jr sdi then sends the 
processor back to sdi to start the 
incrementing routine all over again, ^ ^ 
on the next digit. '' '*' 



If the next digit then increments 
to 10 you go round the loop again. 
And so on. But sooner or later, , . 
one digit will not overflow. 
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the processor will get to sno, store the last 
digit and return to the place in the scr routine 
where sdi was called. 



MORE SCORE 



After the processor returns, the IX pointer is 
popped off the stack again. You can now see 
why it was stored there. If the digit had been 
incremented to 10, the sdi would have shifted 
this pointer onto the next digit. And if you 
wanted the increment again, you'd be doing it 
to the wrong digit. 

The loop here is closed by a djnz, which 
decrements the contents of the B register and 
jumps if it hasn't been decremented down to 
zero. B, you'll remember, carried the number 
of times the score digit had to be incremented 
when the processor entered the routine. 

So the processor goes round this loop, 
clocking up the score, the number of times B 
carries to start with. And when it has counted 
down to zero, the score-printing routine at 
58,939 is called which prints up the new score 
on the screen. 

That done, the processor returns. 





The following little rou 
score by one point: 

ORG 26624 
LDX #5 
NEXT LDA$047E,X 
CMP #57 
BEQZERO 


tine increments the 

INC $047 E,X 
RET RTS 
ZERO LDA #48 
STA $047 E,X 
DEX 
JMP NEXT 



The score on the screen is five digits long, so 
the index register, X, is loaded with 5, The 
contents of X are then used as an offset in the 
indexed instruction LDA $047 E,X. This loads 
up the digit pointed to by 1 150 plus X on the 
screen. On entering this routine X is 5 so the 
units' digit is loaded up from $047E. 

This is compared to 57, the ASCII for the 
figure nine. If it is a nine, adding 1 to the score 
will cause an overflow so the BEQ instruction 
branches the processor forward. If not, the 
contents of $047E plus X are incremented 
and the processor returns. 



DOUBLE DIGITS 



If there is going to be an overflow and the next 
digit to the left needs to be incremented too, 
the processor loads A with 48. This is the 
ASCII for a figure zero. The 48 is stored back 
in $047E plus X on the screen, giving a in 
that position. 

Then X is decremented which moves it 
effectively one place to the left, And the 
processor jumps back to the label N EXT. 

There it begins to handle the next digit in 



exactly the same way. If it isn't a figure 
nine, the digit is incremented. If it is, a 
figure zero is stored in that location 
on the screen and the processor goes 
back to increment the next digit. 
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30FORPASS = 
0TO3STEP3 
40P% = &212E 
50 [OPTPASS 
60 .Score 
70LDX#6 
80 ,Lb1 
90 LDA&89,X 
100CMP#10 
110BCCLb2 
120 SEC 
130S6C#10 
140STA8i89,X 
150 INCgi88,X 
160 .Lb2 
170 DEX 
180 BNELbl 



190 RTS 
200 .Incsc 
210 LDA8i7E 
220 CMP&7B 
230 BCCLb3 
240 RTS 
250 .Lb3 
260 LDA&SF 
270 CLC 
280 ADC #7 
290 STA818F 
300 JSRScore 
310LDA#17 
320JSR&FFEE 
330LDA#128 
340 JSR&FFEE 



350 JSR&1A3C 
360 LDA&7B 
370 STA8.7E 
380CMP#56 
390 BEQLb4 
400 RTS 
410 .Lb4 
420 LDA818C 
430 CLC 
440 ADC&83 
450 STA&8C 
460 INC&SC 
470 INC&8C 
480 JSR Score 

ig0 INC8i83 
00 LDA&83 
10CMP#5 
■520BNELb5 
53OLDA#0 
540 STA&83 



550 IN 08(89 

560 .Lb5 

570 LDA&7D 

580ORA#&80 

590 STA&7D 

600LDA#15 

610LDX#0 

620 JSR&FFF4 

630 JSR&14E7 

640 LDA&84 

650CMP#0 

660 BEQLb6 

670 CLC 

680 SBC #2 

690 STA&84 

700 .Lb6 

710 RTS 

720] NEXT 

730?&1D65 = ?&1D62 

740?8i1D90 = ?&1D8D 



10 or larger, the processor continues. Obvi- 
ously, in base ten notation, you cannot have a 
number larger than 9 occupying a digit. 



To test this routine set PAGE = &2600 type 
NEW and then, key in the following program 
and RUN it when you have all the other 
routines in memory. 



30CALL&1D77 
40CALL&1D9B 
50CALL&1E99 
60IF?(&1B2D 
+ ?&83)AND4 
CALL&1DEE 
70 REPEAT 
80CALL&1C08 
90CALL&1CCB; 
CALL&1CCB: 
CALL&1CCB 
95CALL81II00 
100IF?(8i1B2D 



+ ?&83)AND4 

CALLStlEID 
110CALL&1FD5 
115IF(?&7CnAND4) 

= 0CALL8.1EB6 
120CALL8i20C9 
130CALL&2103 
140UNTIL?&7 

DDAND128 
150!F?&89 = 

REPEATUNTIL 

INKEY(-99): 

RUN ELSEGOTO40 



LOADING BASE TEN 



The score that is printed on the screen is in 
base ten and has six digits so that it can record 
any number from zero to 999,999. Although 
the numbers between zero to 999,999 can be 
stored in only three bytes ordinarily, they are 
going to be stored in six bytes here — with one 
decimal digit in each byte — so that they can be 
printed up on the screen more easily. 

So first X is loaded with 6 so that you can 
count across the six memory locations that are 
going to be used. These are zero page loc- 
ations &8A to &8F. Then A is loaded with the 
contents of memory location &89 offset by X, 
In other words, you're going to start at &8F 
which is the least significant digit. The 
contents of this memory location are com- 
pared with 10, 

If the contents of this location have not 
been incremented up to 10 yet, the BCC 
instruction branches the processor forward 
over the next routine. But if the contents are 



CLOCKING ON 



If the number in one digit location is 10 or 
over, you have to clock up one in the next 
digit to the left. But first you need to adjust 
the contents of the original digit byte. 

So the carry flag is set in Line 120 and 10 is 
subtracted in Line 130. The resuh is then 
stored back in the memory location given by 
&89 offset by X — which was the one it was 
loaded up from. The next digit to the left — 
given by &88 offset by X— is incremented. 

The DEX in Line 170 decrements X to 
move onto the next digit. Then the BNE 
instruction in Line 180 branches the pro- 
cessor back to handle the next digit, if X 
hasn't counted down to zero. 

If it has clocked down to zero, all the digits 
have been dealt with, the processor proceeds, 
hits the RTS and returns. 



WILLIE THE WINNER 



Location &7E contains the Y coordinate 
Willie has just moved from. So this is loaded 
into the accumulator and compared with the 
contents of &7B, the Y coordinate Willie has 
just moved to. 

If Willie has not moved up the slope, the 
BCC instructor does not operate and the 
processor hits the RTS and returns. But if 
Willie has moved up the screen, the BCC 
branches the processor into the next part of 
the routine. 

There, the contents of &8F — which carries 
the Is — is loaded up into the accumulator. 
The carry flag is cleared and 7 is added. The 
result is stored back in in &8F and the 
processor jumps to the Score routine — given 
in the first section of this part of 
Cliffhanger — which straightens out the deci- 
mal digits, 

Loading A with 17 and jumping to 
&FFEE, then loading A with 128 and jump- 
ing to &FFEE again, sees the colour for 
printing up the score. And jumping to the 
subroutine at &1A3C prints it up on the 
screen. 

Next the Y coordinate counter in &7B is 
loaded up and stored in &7E — you'll notice 
that the program has compared the contents 
of these two locations to see whether Willie 
has moved. The instruction in Line 380 
compares this Y coordinate with 56, to see 
whether Willie has reached the top of the 
slope where he gets his reward. 

If he hasn't the BEQ instruction does not 
operate and the processor hits the RTS and 
returns. But if he has hit those heights, the 
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BEQ instruction takes the processor on into 
the next routine. 



BIG BUCKS 



If Willie has reached his reward, this is where 
the big bucks are scored. When the processor 
branches on to the label Lb4 in Line 410, it 
next loads up into the accumulator the cont- 
ents of &8C, the location that holds the 
thousands. 

The carry flag is then cleared and the 
contents of &83 — the current screen 
number — are added. The result is stored back 
in &8C5 then &8C is incremented twice for 
reaching the reward. The Score routine is then 
called again to straighten up the digits. 

Next the contents of &83 are incremented. 
If Willie had reached the reward, he moves 
onto the next screen. So the screen number in 
&83 has to be incremented. Then it is loaded 
into A by the instruction in Line 500 and 
compared with 5. 

If the screen number has not been in- 
cremented to 5 — the last screen — yet, the BNE 
instruction branches the processor forward 
over the next routine. 

Otherwise, A is loaded with which is 
stored in &83, the level location. This starts 
the game off again on the next level. 

Next, the contents of &89, Willie's lives, 
are incremented. This adds a life for reaching 
the reward. 



REWARDED 



The contents of Willie's status register, &70, 
are then loaded into the accumulator and 
ORed with &80. This sets bit seven and tells 
the processor to bring on a new screen next 
time this byte is checked — the result of the 
ORing is stored back in &70. 

Next A is loaded with 15 and X with and 
the subroutine at &FFF4 is jumped to. This 
the equivalent of a BASIC *FX1 5,0 and clears 
the sound. Then the subroutine at &14E7 is 
jumped to, to sound the bell. 



ON SPEED 



Every time Willie reaches a reward and goes 
up a level, the game is speeded up. So the 
contents of the location that control the speed, 
&84, are loaded up into the accumulator and 
compared with 0. This checks whether the 
speed has reached its fastest already. 

If it has, the BEQ branches the processor on 
to the end of the program. If not, the carry 
flag is cleared and 2 is subtracted to increase 
the speed. 

The result is stored back in &84 and the 
processor moves on to the RTS, and returns. 

The POKEs in Lines 730 and 740 adjust 
data given in earlier parts of Cliffhanger. 
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iSDI 



This little routine sounds the reward bell, 
puts Willie up onto the next level, speeds the 
game up and gives him a massive boost to his 
score, among other things. 



ORG 20721 

RWD LDA # 255 
LDX #150 
JSR SOUND 
LDA 18238 
INCA 

ANDA #3 
STA 18238 
DEC DLL + 1 
LDB #5 
LDA #3 
JSR SCI 
LBRA NLV 

SCI EXG A,B 

SOT LDX #18240 
ABX 

PSHS A,X 
JSR SDI 
PULS A,X 
DECA 
BNE SCT 
JSR PRSC 
RTS 

SDI LDA ,X 
INCA 

CMPA #10 
BNE SNO 
CLR,X 
LEAX -1,X 
BRA SDI 

SNO STA ,X 
RTS 

SOUND PSHS A 



SBN 
SC 



SD 



CLICK 



DLL 
NLV 
PRSC 



LDA $FF01 
ANDA #247 
STA $FF01 
LDA $FF03 
ANDA #247 
STA $FF03 
LDA $FF23 
0RA#8 
STA $FF23 
ORCC #$50 
PULS A 
PSHSX 
LDB #252 
STB $FF20 
LEAX -1,X 
BNESC 
LDX,S 
CLR $FF20 
LEAX -1,X 
BNESD 
LDX,S 
DECA 
BNE SBN 
ANDCC #$AF 
PULSX 
RTS 

LDX #98 
LDA #4 
JSR SOUND 
RTS 

EQU $51 ED 
EQU $4BF7 
EQU $4C77 



The first three instructions sound the reward 
bell. This is done using the SOUND routine 
lower down in the program. The pitch and 
duration parameters are fed to it in the usual 
way, via the numbers loaded into the A and X 
registers. 



LEVELLING UP 



A is loaded with the contents of 18,238, tfie 
level's storage location. It is then incremented 
and ANDed with 3. This clears the six most 
significant bits and stops the level number 
being incremented higher than 3. The result 



is stored back in 18,238, 

Next the memory location variable in 
$51EE is decremented so that the game runs a 
little bit faster. 

Then the score is boosted by loading 5 into 
B, 3 into A and calling the SCI routine given 
below, B carries the number of the times the 
digit is to be incremented and 3 tells the 
routine which digit to increment. So here the 
score is boosted by 500. 

The processor then makes the long branch 
back to the NLV routine which will put the 
next level up on the screen. 



KNOW THE SCORE 



For the purposes of the next routine the 
contents of the A and B registers have to be 
swapped round. This is done by an EXG — or 
EXchanGe — instruction. Then X is loaded 
with 18,240, the start address of the score 
data. 

ABX adds the contents of B — which is the 
number of the digit to be incremented — to X. 
In other words, it shifts the pointer in X along 
from the beginning of the score data to the 
location of the actual digit that you want to 
increment. 

Then the contents of A — the number of 
times that digit is to be incremented — and 
X— the memory location of that digit— are 
pushed onto the hardware stack. And the 
processor jumps to the SDI subroutine which 
does the incrementing. The contents of A and 
X are then pulled back off the stack. 

A is then decremented and the BNE SCT 
instruction sends the processor round the 
loop again, if A has not been decremented to 
zero. So this digit incrementing routine is 
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executed A times, incrementing the appropri- 
ate digit once each time it goes round. 

When A has been counted down to zero 
and the score has been worked out, the 
processor drops out of the loop and jumps to 
the PRSC routine. This is the one that prints 
the score up on the screen. 

And when it returns from doing that, the 
processor hits another RTS and returns to the 
main routine where this one was called. 



DABBLING WITH DIGITS 



A is loaded with the contents of the memory 
location pointed to by X. This is the actual 
number comprising the appropriate digit of 
the score. It is then incremented! 

The resuh is compared to 10. If it is not 10, 
the BNE instruction skips the processor for- 
ward to the label SNO where the incremented 
digit in A is stored back in the location 
pointed to by X and the processor returns. 

But if it is, the digit pointed to by X is 
cleared — that is, it is set back to zero. Then X 
is decremented. This moves the X pointer on 
to the location containing the next digit to the 
left. 

BRA SDI then sends the processor back 
round the digit incrementing loop. This 
increments the next digit and checks to see 
whether the next digit has overflowed. 

Eventually, the processor will find a digit 
that does not overflow and store its new value 
back in the location pointed to by X. 



You'll note that when the processor gets 
back to the score routine where it was called, 
X is restored by pulling it off the stack. 

The SOUND routine here works exactly the 
same way as the routine used to play Green- 
sleeves (see page 972). But this only plays one 
note at a time and does not use the user stack 
as its source of music data. 

After the SOUND routine there is another 
little routine called CLICK. This does Willie's 
walking sound by loading the sound para- 
meters into X and A and calling SOUND. 

You can test the program using the M and 
N keys and this short BASIC program: 

10 POKE 3000,S7 
20 EXEC 19426 
30EXEC19902 
40 GOTO 30 




AND SO... 
FORTH 



8 



Originally invented for functional 
programming, FORTH, with its 
totally transportable programs and 
speed, is now being used on a much 
wider scale on many machines 



in 



FORTH is a very efficient high-level pro- 
gramming language and operating system. Its 
speed is closer to machine code than to 
BASIC — but unlike machine code, it is very 
easy to learn. And one of the supreme advan- 
tages of FORTH programs is that they are 
almost completely transportable from one 
computer to another, This applies not just 
between small home micros, either— the 
machine's size or type has very little to do 
with it. Transportability like this is a very rare 
attribute in an industry beset with the pro- 
blems of incompatibility — especially within 
computer languages. 

Several dialects and updates of FORTH 
exist but the core principles are the same for 
all. The introduction to FORTH given by 
this series should be easy to follow by itself, 
but needless to say , you will need FORTH in 
your computer if you want to try any of the 
examples. 

You can buy a FORTH system for all the 
computers covered here. This may be 
supplied in the form of a tape or disk or ROM 
cartridge and a very effective implementation 
of the language may require no more than 8K. 
This must be loaded over the top of the 
resident BASIC, but program applications 
produced using FORTH can stand on their 
own. 

So what is FORTH, and what use is it 
likelv to be to vou? 



STRUCTURE AND EFFICIENCY 



FORTH was first developed in the early 
19"0's by Charles H. Moore who thought his 
invention to be so powerful that he considered 
it a 'fourth generation computer language'. 
The computer he was working on at the time, 
however, permitted only five-character 
identifiers, so he amended the name to 
FORTH. 

The language was originally intended for 
what is usually termed futifiiona! 
programming — scientific and industrial pro- 
cess control applications, robotics and so 
forth. But it can also be used for the same 
general purposes as any other programming 
language. And it's a lot faster in execution 
than some — typically twenty times faster than 
BASIC, for instance. 



Like some other 'modern' languages, 
FORTH programs are highly structured, 
with a modular design, and so are very easy to 
get to grips with. Practically, this means that 
programming is very straightforward— and 
therefore quick, certainly much more so than 
working in assembly language. FORTH can- 
not entirely replace assembly language in 
situations where extreme speed is required, 
but it is usually easy to incorporate the 
necessary routines when you have to. 

FORTH coding is extremely compact once 
compiled and in fact requires less memory 
than equivalent assembly language routines — 
even a IK program will be capable of doing a 
great deal. This makes FORTH popular in 
situations where the program has to do a good 
deal of work but where there may be memory 
restrictions on the host computer, as on home 
computers, for example. 

You have met the concept of a compiled 
language before in this series. This means that 
when a program has been entered, it is 
compiled, or translated, once and for all into 
machine code. This is in contrast to an 
interpreted language like BASIC, which is 
translated while the program is actually 
running — a much slower process. 

The process in FORTH is actually a little 
more complicated than either of these and one 
of the interesting things about the language is 
that it functions both as a compiler and as an 
interpreter, though normally the latter. Only 
when new words are being added to 
FORTH's vocabulary does it act as a 
compiler. 

During its interpreter mode, FORTH at- 
tempts to match definitions to the program 
instructions which have been entered and 
have to be executed. But source code for a 
program doesn't normally come in the form of 
single line entries. Instead, screens are used to 
form the input stream— which is literally a 
stream of incoming data and instructions. 

This is invariably read in from a storage 
device, usually a disk although it is possible 
from tape. A screen consists of a block of 1024 
bytes of storage data space which corresponds 
to the display space available on a typical 
screen display. This is the only connection 
there ought to be between the use of the term 



screen in FORTH, and its normal 

application. 

Now the FORTH interpreter can look at 
the full block (screenful) of data and take this 
as the input stream. Several such screens may 
be needed for a program and it is possible to 
chain them so they are self-loading. 



THE WAY OF THE WORD 



A FORTH program is composed of a series of 
functions (and operators) which are held in a 
sort of reference bank called a dictionary. You 
can use this dictionary of words— tht FORTH 
equivalent of a command — to create new 
words of such complexity that a single one 
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may act like a complete program. And you can 
combine this new word with others to create 
still more powerful command words. This is 
similar to the way in which you have seen 
LOGO and LISP working, where the simple, 
inbuilt functions are chained together to make 
more and more complex procedures. 

A word definilion has two parts— the first is 
the header made up of the name which has 
been given to the new word. The second part 
is the body which can consist of words and/or 
numbers and/or operators. The whole defi- 
nition is entered using line input between a 
colon and semi-colon. 

Line input is the term used to describe the 
entry of any group of word s and fi gures prior 
to pressing |RETURN| or [ENTER] . FORTH 
responds to such an input with the abbrevi- 
ation OK if the entry is accepted, and ? if there 
has been an error of some kind. Additional 
system messages may also be displayed in the 
second case. 

So line input of a definition takes the form: 

: newword oldword operator; 

When newword is subsequently executed (car- 
ried out) it'll achieve exactly the same result as 
the oldword if this had been operated upon 
instead. 

Now suppose you wanted to repeat the 
action achieved by newword several times. 
Obviously it would be rather tedious and 
wasteful of space to reuse newword on each 
occasion. So why not set up a new definition? 
Here's how it would look: 

: rerun newword newword newword; 

Now you need only to call up rerun to repeat 
newword three times. And of course, each time 
rerun is called into play this calls the original 
based on oldword and its operator. You can see 
each new definition automatically embodies 
all of the old ones. 

The word itself can be composed of almost 
any combination of characters available on the 
computer except control and graphics sym- 
bols. Obviously, there's a good deal of sense 
in giving meaningful names to these defi- 
nitions. You need to be careful how you use 
spaces, however. Spaces are very important in 
word definitions and in the general command 
structure of FORTH, because they are used 
to mark the end of the word itself. 

Let's look at a 'real' definition using one of 
the resident words ." which is called the dot- 
quote: 

:GREET1. "THANK YOU VERY MUCH"; 
:GREET2GREET1. "I AM FEELING"; 

There are no prizes for guessin g what t he 
screen will display when GREET2 I RETURN I is 
entered. , , 



LOOKING IN THE DICTIONARYl 



Using these principles, a whole chain of 
father-begat-son definitions can be created, 
but their ancestry must trace right back to the 
core dictionary. There are many useful words 
contained there and it's well worthwhile get- 
ting to grips with functions and meanings of 
each word before you get seriously into 
FORTH, for there's often the very real 
danger of attempting to re-invent the wheel! 

The actual number of words held in the 
dictionary — the so called subset — depends on 
the FORTH implementation you are using 
but the full list can be inspected at will (using 
the command word VLIST. A typical core 
dictionary contains some 200 or 300 words. 
Their definition closely follows the standards 
laid down by the various FORTH bodies and 
this is one of the things that ensures the very 
high degree of program portability possible 
with this language. 

The dictionary may actually consist of 
more than one vocabulary — the primary one is 
called FORTH and this i s the wo rd to key 
(and execute) by pressing [RETURN | or |ENTER| 
when you want to return to what is called the 
context vocdiulary. 

All vocabularies link back to the FORTH 
vocabulary and this helps to justify their 
existence. When commands are entered, 
FORTH first looks through whatever hap- 
pens to be the current vocabulary and then 
refers back to the FORTH vocabulary in 
order to find a match for the word under 
execution. As soon as it finds such a match. 



the corresponding definition is carried out. 
Putting the definition of rarely used words 
into special vocabularies speeds up the search 
time when in the FORTH vocabulary itself. 



THE STACK 



The working of FORTH— indeed its whole 
structure — is built around what is termed the 
Slack. This is like the stack used in assembly 
language programming and is used both to 
hold and to transfer data items— numbers— 
for use in various parts of a program. 

By its very nature, information used in the 
execution of a program sequence need only be 
of a temporary nature and this is why the 
concept of a stack is so very important. 

A stack works on the 'last in first out' 
(LIFO) principle, also referred to as 'push-on 
pop-off. It is perhaps easiest to think of this 
in terms of an analogy. Imagine a stack of 
dining plates— ideally on one of those sprung 
canteen plate dispensers sunk in a way that 
leaves the topmost plate always level with the 
surface. As a plate is taken off, so the one 
below is pushed to the top — and as a plate is 
added, this pushes down the rest. 

These plates can be likened to the way data 
items are treated. When added to the stack, a 
data item is pushed on, and may be 'buried' by 
other data items subsequently pushed onto 
the stack. The first item <;an be removed— or 
'popped off easily enough— it's on top. Any- 
thing below it has to have what's above it on 
the stack removed before it can be accessed. 

All you have to do to put a number on the 
stack is to type it in and press [RETURN | . It can 
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be recalled by using FORTH's dot command 
(a full stop .) which prints the topmost 
number of the stack if there is one, otherwise 
zero is displayed. 

Several dots may be used to call out more 
than a single numeral. So if you were to key in 
5 4 3 2 IRETURNI (remembering the spaces) and 
follow this with four dots, you would have the 
numbers 2 3 4 5 displayed before the OK 
prompt. Enter another dot and you will get 
zero displayed because the stack is now 
empty. Follow this with yet another dot and 
the error message ? EMPTY STACK or ?STACK 
EMPTY is printed out. 

The stack enables various parts of a 
FORTH program to communicate with each 
other. Various low-level routines can access 
information that has been placed on the stack, 
remove or modify this as necessary and then 
return it back to the stack for use by another 
part of the program. 

To give a simple example, think of the 
addition of 5 and 7. First 5 and then 7 are 
placed on the stack as separate data items. 
Next the program needs some sort of instruc- 
tion to add these two numbers— a function 
already defined in the dictionary by the word 
-I- (this is a word, and not a symbol in 
FORTH). 

Thus the key sequence is: 



If you were to press [RETURN I now, the line 
would terminate with OK to indicate that these 
data items had been placed on the stack. But 
the presence of -I- in the line entry has forced 



execution of at least part of a procedure, for 
this is called plus (perhaps not surprisingly!) 
and the word -f- is defined as 'leave the sum of 
nl and n2 (on the stack)'. 

Following this instruction, the sum of nl 
and n2 is passed to the stack and can be 
revealed using the dot command followed by 
IRETURNI to print the last entry on the stack. 
The resulting line display would be: 



You could just as well have entered 5 7-1- and 

each as separate line entries to give the 
message 12 OK. 

It is important to notice the form in which 
the sum is entered— the mathematical 
operator is entered after the numbers to 
which it refers. This is familiar to anyone who 
has used an ordinary calculator. Both these 
and FORTH operate on the concept of what 
is termed reverse Polish notation (RPN), 
otherwise called postfix notation (PFN). This 
is unlike infix notation, used in conventional 
writing arithmetic or the prefix (Polish) not- 
ation used in LISP and LOGO, for example. 

FORTH has to use PFN so that use can be 
made of the stack. The 'conventional' arith- 
metic form 5-1-7 seems to be much more 
readable, but of course if a stack is being used, 
the operator -H has nothing to work on 
because the second number is not present on 
the stack when the operator is called. 

For those unfamiliar with PFN, even 
simple arithmetic may become a daunting 
task. But it is made simpler by remembering 
the LIFO principle of the stack. 



The first rather obvious rule is that all the 
values have to be on the stack before you can 
actually do anything! The operators you can 
use follow conventional practice and several 
operations may be performed in a single input 
entry. You can control when operations are 
done by specifying the order of the operators. 
For example: 

7 9 3 -F • . 84 OK 

is equivalent to (3 -I- 9) *7 and: 

793- + .340K 

is equivalent to 3*9-1-'/. 



STACK MANIPULATIOW 



Simply calling numbers off the top of the 
stack isn't really too useful by itself, and this is 
really the point where you need to consider 
the FORTH words which are available for 
duplicating, changing the position or remov- 
ing stack entries. 

The stack manipulation commands include 
the following: 

WordlPurpose Beforejafter 

Example 



SWAP nl n2 n2 nl 

exchange the two 17 9 SWAP . . 1 7 9 OK 



DUP nl nl nl 

duplicates the 69 DUP . . 69 69 OK 

topmost stack value 

DROP nl 

removes and discards 64 15 DROP .. 64 

the topmost value STACK EMPTY 

SW nl n2 n2 nl 

exchange the two 17 9 SWAP . . 1 7 9 OK 
topmost stack values 



OVER nl n2 nl n2 nl 

puts a copy 56 13 OVER ... 56 13 56 OK 
of the second 
item on the stack 



ROT nl n2 n3 n2 n3 nl 

rotates the top 3 8 9 ROT ... 8 9 3 OK 

three times on the stack 

Some interesting points appear here. The first 
is the 'before and after' arrangement of the 
display explaining the effect of a particular 
word. Every FORTH glossary gives this as: 

before after 

The dashes suggest the presence and action of 
the word used on things — numbers — that 
should be on the stack before execution. This 
is called stack notation. 

The second point— which leads on to 
complex program constructions in 
FORTH— is that it should be quite clear that 
the various manipulations enable you to cir- 
cumvent many of the restrictions imposed by 
the LIFO nature of the stack. The next article 
will show how a FORTH program evolves. 
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THE ADVENTU^ 




Here is the third part of INPUTs adventure 
game. Remember, there are no clues in this 
series of articles, so don't be mislead by the 
illustrations. 

When you have finished adding the latest 
lines of programming, do not forget to SAVE 
the program ready for next time. 



200 RESTORE 4020: FOR Z = 1 TO 21 
210 READ K(Z),F(Z): LET NN = Z*2 + 124: 

GOSUB 4500: LET 0$(Z) = S$: LET 

NN = Z-2 + 125:GOSUB 4500: LET 

E$(Z) = S$ 
230 NEXT Z 
240FORZ = 1 TO 32 
250 READ R(Z): LET NN = 167 + Z: GOSUB 

4500: LET R${Z) = S$ 
260 NEXT Z 

530 INPUT INVERSE 1;"WHAT NOW?",LINEI$ 
535 IF 1$ = "" THEN GOTO 530 
540IFI$ = U$ANDTT = 0ORI$ = J$ 

AND ll = 0THEN GOSUB 3040: 

GOTO 270 
550 LET X$=l$: LET Y$ = CHR$ 32: GOSUB 

5000 
560 IF IN = THEN LET V$ = 1$: GOTO 580 
570LETV$ = I${TOIN-1) 
580LETT$ = I$(IN + 1 TO} 
590 IF V$ = "GO" THEN LET V$ = T$ 
640 LET 1 = 
650 FOR Z = 1 TO 32 
660 LETX$ = R${Z): LETY$ = V$: GOSUB 

5000: IF IN = 1 THENLETI = R(Z) 
670 NEXTZ 
680 IF l<1 THEN PRINT "I DON'T KNOW 

HOWTOn";l$: GOTO 530 
690 IF E$(L,1 ) < > CHR$ 32 AND I <>9 

AND l<>10 AND l<>5 AND l<>12 

AND I <>8 AND F = 1 THEN PRINT 
"THED";E$(L),"WON'T LET YOU.": PAUSE 

100; GOTO 270 
1760REMPROCA 
1770 CLS 
1780 PRINT AT 11,6;: LET NN = 65: GOSUB 

3960 
1800 LET NN = 33: GOSUB 3960 
1810 PAUSE 750 
1 320 GOSUB 1840 
1830 RETURN 
1840 REM PROCB 



1850 CLS 

1860 PRINT FLASH 1;AT 11,8; 

"YOU'RE DEAD!" 
1880 STOP 
1890 CLS 
19001FK(3)<>-1 THEN LET NN = 66: 

GOSUB 3960: LET NN = 67: GOSUB 3960: 

PAUSE 0: RETURN 
1910 IF K(2)<> -1 THEN LET NN = 68: 

GOSUB 3960: LET NN = 67: GOSUB 3960: 

PAUSE 0: LET L=L- 6: RETURN 
1920 PRINT FLASH 1;AT 11,10; 

"WELL DONE!" 
1940 PRINT FLASH 1;AT 16,10; 

"YOU'VE WON" 
1960 STOP 
1970 REM PROCC 
1980 LET PQ = 0: F0RZ = 1 TO 21 
1990 LETX$ = 0$(Z): LETY$ = T$: GOSUB 

5000: IF IN >0 THEN LETPa=Z 
2000 NEXT Z 
2010 IF PQ = THEN PRINT "I DON'T 

UNDERSTANDD";T$;".": GOTO 2070 
2020 IF K(PQ)= -1 THEN PRINT "YOU'VE 

ALREADY GOT IT!": GOTO 2070 
2030 IF K(PO)<>LTHEN PRINT "THED"; 

T$;"n IS NOT HERE!": GOTO 2070 
2040 IF PP > 3 THEN PRINT "YOU CAN'T 

CARRY ANY MORE.": GOTO 2070 
2050 LET K(PQ) = - 1 : LET PP= PP+ 1 : 

PRINT "OKAY-YOU'VE GOT IT." 
2060 LET NN = 166: GOSUB 4500: IF 

T$ = S$THEN LETXX = XX + 600 
2070 PAUSE 100 
2080 RETURN 
2090 REM PROC D 
2100 DIM G$(17): LET NN = 153: GOSUB 

4500: LET G$ = S$: DIM B$(17): LET 

NN = 155: GOSUB 4500: LET B$ = S$: IF 

E$(L) = G$ OR E$(L) = B$ THEN LET 

NN = 69: GOSUB 3960: PRINT E$(L): LET 

NN = 34: GOSUB 3960: PAUSE 250: STOP 
2110IFE$(L,1} = CHR$32THENLET 

NN = 35: GOSUB 3960: PAUSE 300: GOTO 

2440 
2120 DIM G$(17): LET NN = 129: GOSUB 

4500: LET G$ = S$: IF G$ = E${L) THEN 

LET NN = 36: GOSUB 3960: PAUSE 350: 

GOTO 2440 
2130 LET C$ = "": LET H$ = "" 
2140 LET WW = 1: LET AA = 



2150 IF K(20) = -1 THEN LET 
WW = WW + 2 

2160IFK(9) = -1 THEN LET WW = WW + 3 

2170IFK(15)=-1 THEN LET AA = AA+ .5 

2180IFK(14) = -1 THEN LET AA = AA+ ,5 

2190IFK(10)=-1 THEN LET 
WW=WW + 1 

2200 IF AA = 1 THEN LET WW=WW+3 

2210IFWW=1 AND C$ = "" THEN INPUT 
"DO YOU WANT TO FIGHT WITH BARE 
HANDS? (Y/N}",H$ 

2220 DIM G$(17): LET NN = 70: GOSUB 
4500: LETG$ = S$: IF E$(L) = G$AND 
H$ = "Y" THEN LET NN = 37: GOSUB 
3960: PAUSE 250: GOSUB 1840 

2230 DIM G$(17): LETNN = 135: GOSUB 
4500: LET G$ = S$: IF H$ = "Y" AND 
F(L)>1 AND E$(L)<>G$ THEN PRINT 
"YOU CAN'T FIGHT THED";E$(L),"WITH 
BARE HANDS!": PAUSE 150: GOTO 2440 

2240 IF H$<>"Y" AND WW = 1 THEN 
GOTO 2440 

2250 LET EE = INT(RND'6) + 1: CLS 

2260 FOR Z = TO 21 

2270 PRINT AT Z,0; 

2280 NEXT Z 

2290 PRINT FLASH 1;AT 10,12;"FIGHTING!" 

2310 PAUSE 100 

2320IFWW>F(L) ANDEE>2THEN LET 
V=V-2: GOTO 2360 

2330 IF WW>F(L) AND EE< =2 THEN LET 

V = V-1: GOTO 2380 
23401FWW< = F(L)ANDEE>=4THEN 

LETV = V-3: GOTO 2360 
2350 IF WW< = F(L) AND EE<4 THEN LET 

V = V-3: GOTO 2380 
2360IFV<1 THEN GOSUB 1840 

2370 PRINT ""YOU ARE WOUNDED."'"YOUR 

VITALITY IS ";V: GOTO 2410 
2380 IF V<1 THEN GOSUB 1840 
2390 PRINT ""YOU HAVE WON THE 

BAnLE."'"YOUR VITALITY ISn";V 
2400 LET E$(L) = "": PAUSE 150: RETURN 
2410LETLL = INT(RND'21) + 1:IF 

K(LL)=-1 THEN PRINT "YOU HAVE 

DROPPED THE",0$(LL): LET K(LL) = L: 

LETPP = PP-1 
2420 INPUT "DO YOU WANT TO CONTINUE 

THED n D □ D FIGHT? (Y/N)", LINE C$ 
2430 IF C$ = "Y" THEN GOTO 2140 
2440 CLS : RETURN 
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Continue entering Escape, INPUTs 
new adventure game, LOAD in the 
existing program and add these 
lines. The program cannot be RUN 
until it is completed 



2450 REM PROC E 

2460 CLS 

2470 PRINT "YOU HAVE COLLECTED:-"; 

LET PR = 
2480 FOR Z=1 TO 21 
2490IFK(Z)=-1 THEN PRINT 

"THEn";0$(Z):LETPP = PP + l 
2500 NEXT Z 

2510 IF PP = TH EN PRINT "NOTHING" 
2520 PRINT "YOUR VITALITY ISa";V 
2530 PAUSE 250 
2540 RETURN 
2550 REM PROC F 
2560 CLS 

2570 LETNN = 71:G0SUB 3960 
2580 PAUSE 50 
2590LETJ = 1NT(RND'6) + 1 
2600IFTT<1 AND 1I<1 THEN LET 

NN = 72:GOSUB 3960: GOTO 2720 
2610IFTT=1 AND 11 = 1 AND J>3 THEN 

GOTO 2680 
2620 IF TT < 1 AND II = 1 THEN GOTO 2680 
2630 LET NN = 38: GOSUB 3960 
2640 PAUSE 300: LET U$ = "" 
2650 FOR Z = TO 5: LET PQ = tNT {RND*26) 

+ 97: LET US = CHRS (PQ) + U$: NEXT Z 
2660 LET NN = 73 GOSUB 3960: PRINT U$: 

LETn = 
2670 PAUSE 150: GOTO 2730 
2680 LET NN = 39: GOSUB 3960 
2690 PAUSE 250: LET J$ = "" 
2700FORZ=0TO5:LETPQ = INT 

(RND-26)+97: LET J$ = CHR$ (PQ)+J$: 

NEXTZ 
2710 LET NN = 73: GOSUB 3960: PRINT J$: 

LET 11 = 
2720 PAUSE 150 
2730 CLS : RETURN 
2740 REM PROC G 

2750 IF E$(L,1 ) <> CHRS 32 THEN RETURN 
2760 CLS : LET NN = 74: GOSUB 3960 
2770LETE$(L) = M$: LETF(L) = 10 
2780 LET N = 0; LET S = 0: LET E = 0: LET 

W = 0: LET U = 0: LET D=0: LET F = 1 
2790 RETURN 
2800 REM PROC H 
2810IFE$(L,1) = CHR$32THENLET 

NN = 75: GOSUB 3960: PAUSE 100: GOTO 

2980 
2820 LET NN = 153: GOSUB 4500: DIM 

G$(17): LET G$ = S$: IF E$(L) = G$ THEN 
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GOTO 2826 
2822 LET NN = 155: GOSUB4500: DIM 
G$(17): LET G$ = S$: IF E$(L) =G$ THEN 
GOTO 2826 

2825 GOTO 2830 

2826 PRINT "NO DEAL!": LET NN = 34: 
GOSUB 3960: PAUSE 250: STOP 

3960 REM DECODE & PRINT STRING 
3970 LET Z(1)=A(NN): LETXXX = USR 

65067: PRINT "Z$: RETURN 
4020 DATA 1,0,2,0,3,0,0,0,0,4,8,0,KK,0,8,0, 

9,0,10,0,11,2,12,0,0,0,14,4 
4030 DATA 15,6,0,0,17,0,0,0,19,0,20,1,21,0 
4040 DATA 8,5,5,4,8,9,10,9,10,11 
4050 DATA 2,2,12,3,3,1,1,1,1,1,1,1 
4060 DATA 6,7,12,12,1,1,1,1,1,1 
4500 REM DECODE STRING INTO SS 
4510 LET Z(1 ) =A(NN): LET XXX = USR 

65067: LETX$ = Z$: LETY$ + CHR$9 
4520 GOSUB 5000: LET S$ = Z$ (TO IN - 1 ) 
4530 RETURN 
5000 REM INSTR ROUTINE 
5010 LET IN = 0: IF LEN YS>LEN XSTHEN 

RETURN 
5020 FOR Z = 1 TO (LEN X$-LEN Y$ + 1) 
5030 IF Y$ = X$(KT0K + LENY$-1) THEN 

LETIN = Z:LETZ = (LENX$-LENY$-1) 
5040 RETURN 



285 E$(NN) = Z$:IF E$(NN) = "n"THEN 

E$(NN) = "" 
385 0NL-9G0SUB1 190,1 260,1 240,1 330, 

1 470,1 640,1 790,1 340, 1 060, 1 31 0, 1 360, 

1140,2080 
665 IF (1 - 1 ) < 1 THEN V$ = ""iGOTO 670 
666V$ = LEFT$(I$,I-1) 
1670 IF INT(RND(1)'18) <4 THEN F = 0: 

TX = 63:GOSUB9900 
1680 RETURN 
1690IFINT(RND(1)'18) + 1=3AND 

DW = 1 THEN 3100 
1700 PRINT "□" 
1710N = 0:S = 1:E = 0:W = 1: 

U=0:D = 
1720PRINT:TX = 25: 

GOSUB 9900 
1730IFK(17)=-1 THENTX = 26: 

GOSUB 9900:D = 1 
1740 RETURN 
1750 PRINr'D" 
1760N = 1:S = 0:E = 0:W = 0: 

U = 0;D = 
1770PRINT:TX = 27: 

GOSUB 9900 
1780 RETURN 
1790 PR1NT"a" 
1800N = 0:S = 1:E = 0:W=0: 

U = 1:D = 
1810PRINT:TX = 12: 

GOSUB 9900 



1820IFK(7)=-1 THENTX = 64: 

GOSUB 9900:D = 1 
1830 RETURN 
1840 IF 1NT(RND(1)'18) = 1 THEN GOSUB 

2860 
1850 PRINT "□":N = 1:S = 1:£ = 1:W = 0: 

U=0:D = 1 
1860PRINT;TX = 30: 

GOSUB 9900 
1870 RETURN 
1880IFINT(RND(1)-18) + 1 = 1 AND 

DW = 1 THEN 3100 
1890 PRINT "□":N = 1:S = 1:E = 1:W = 1: 

F = 
1900PRINT:TX = 31: 

GOSUB 9900 
1910 IF E$(L)<>"" THEN PRINT"iL]HERE 

ISA|J"E$(L}"UPASSING,":F = 1 
1920 RETURN 
1930 PRINT "□":N = 1:S = 1:E = 0:W = 1: 

U = 0:D = 1 
1940PRINT:TX = 32: 

GOSUB 9900 
1950 RETURN 
1960 PRINT "□^"TAB(255)TAB(168)v 

TX = 65:GOSUB9900 
2000 TX = 33:GOSUB 9900 
2010 FOR DL = 1 TO 1000:IF PEEK 



(198)=64 THEN NEXT DL 
2050 PRINT"ag"TAB(255)TAB(172) 

"YOU'RE DEAD!!!": 

GOTO 10000 
2080 PRINT"n" 
2090 IF K(3)<> -1 THEN PRINT:TX=66: 

GOSUB 9900:PRINT:TX = 67: 

GOSUB 9900 
2100IFK(3)<>-1 THEN GET D$:IF 

0$ = "" THEN 2100 
2110IFK(3)<>-1 THEN RETURN 
2120 IF K(2)<> -1 THEN PRINT:TX = 6B: 

GOSUB 9900:PRINT:TX=67: 

GOSUB 9900 
21 30 IF K(2) <> - 1 THEN GET D$:IF 

D$ = "" THEN 2130 
2140IFK(2)<>-1 THENL = L-1: 

RETURN 
2150 PRINT"|a"TAB(255)TAB(1 74) "WELL 

DONE!" 
2160 PRINT TAB(13)"[3]0U'VE WON." 
2170 END 
2180: 

2190 QQ = 
2200 FOR CC = 1 TO 21 
2210 FOR SC = 1 TO LEN (0$(CC})-LEN 

(T$) + 1 
2220 IF MID$(0$(CC),SC,LEN(T$)) = T$ 
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AND SC>0 THEN QQ = CC: 

GOTO 2240 
2230 NEXT SC,CC 
2240 IF QQ=0 THEN PRINT'-Q DON'T 

UNDERSTAND "T$".":GOTO 2300 
2250 IF K(QQ) = -1 THEN PRtNT"[I|OU 

ALREADY HAVE 1T!";G0T0 2300 
2260 IF K(QQ) < > L THEN PRINT"[DHE " 

T$" IS NOT HERE!":G0TO 2300 
2270 IF PP>3 THEN PRINT'OOU CAN'T 

CARRY ANY MORE.":G0T0 2300 
2280 K(QQ) = - 1 :PP = PP + 1 :PRINT 

"|-|KAY-YOUNOWHAVEIT," 
2290TX = 166:GOSUB9950:IFT$ = Z$ 

THEN XX = XX + 600 
2300 GOSUB 20000:RETURN 
2320 TX = 153:G0SUB 9950:01 $=Z$: 

TX = 155:GOSUB9950 
2335 IF E$(L) = D1$ OR E$(L)=Z$ THEN 

2350 
2340 GOTO 2360 
2350 TX = 69:GOSUB9950:PRINT Z$,E$(L) 

"!":TX = 34:GOSUB9900:GOSUB 20000: 

NEXT:GOTO1000 
2360 IF E$(L) = "" THEN TX = 35:GOSUB 

9900:GOSUB 20000:GOTO 2670 
2370 TX = 129:G0SUB 9950 
2375 IF E$(L) = Z$ THEN TX =36:G0SLJB 




9900:GOSUB 20000:GOTO 2670 
2380C$ = "":HS = "" 
2390WW = 1:AA = 
2400 IF K(20)=-1 THEN WW = 

WW + 2 
2420IFK(9)=-1 THEN WW = 

WW + 3 
2430IFK(15)=-1 THENAA = 

AA + .5 
2440IFK(14)=-1 THENAA= 

AA + .5 
2450IFK(10)=-1 THENWW= 

WW + 1 
2460 IF AA = 1 THEN WW = 

WW + 3 
2470 IF WW = 1 AND C$ = ""THENPRINT 

"GIGHTWITH BARE HANDS- d/ 

0?":INPUT H$ 
2480 TX = 70:GOSUB 9950 
2485 IF E$(L) = Z$ANDH$ = "Y"THEN 

TX = 37:GOSUB 9900:GOSUB20000:GOTO 

2040 
2490 TX = 135:GOSUB 9950 
2495 IF H$ = "Y" AND F(L)>1 AND E$(L) 

<>Z$ THEN 2510 
2500 GOTO 2530 
2510 PRINT "Q]OU CANT FIGHT THE " 

E$(L)" WITH BARE HANDS!" 
2520 GOSUB20000:GOTO 2660 
2530 IF H$< >"Y" AND WW = 1 THEN 

2670 
2540E = INT(RND{1)*6) + 1: 

PRINT "□" 
2550 PRINT "^"TAB(255)TAB(212) 

"YOU'RE FIGHTING!" 
2560 GOSUB 20000 
2570 IF WW> F(L) AND EE>2 THEN 

V = V-2:GOTO2600 

2575 IF WW> F(L) AND EE< =2 THEN 

V = V-1:GOTO2630 

2580 IF WW< = F(L)AND EE> =4 THEN 

V = V- 3: GOTO 2600 

2590 IF WW < F(L) AND EE < 4 THEN 

V = V-3:GOTO2630 
2600IFV<1 THEN 2040 

2610 PRINT:PRINT"a]OU'RE WOUNDED." 
2620 PRINT "CCOUR VITALITY IS ";V: 

GOTO 2390 
2630IFV<1 THEN 2040 
2640 PRINT 'OOU'VE WON THE BAHLE." 
2650 PRINT 'OOUR VITALITY IS ";V 
2660E$(L) = "":GOSUB20000: 

RETURN 
2680LL = INT(RND(1)*21) + 1 
2700 IF K(LL)= -1 THEN FRINT'CIOU'VE 

DROPPED THE "0$(LL))".":K(LL) = L: 

PP = PP-1 
2710 PRINT "HO YOU WANT TO CONTINUE 

FIGHTING-a]/0?":INPUTC$ 
2720 IF C$ = "Y" THEN 2390 
2730 PRINT "□":RETURN 



2760 PRINT "QnOU HAVE 

COLLECTED:-":PP = 
2780FORCC = 1TO21 
2790 IF K(CC) = - 1 THEN PRINT "THE " 

0$(CC)",":PP=PP + 1 
2800 NEXT CC 

2810 IF PP = THEN PRINT "NOTHING." 
2820 PRINT "OJOU R VITALITY IS ";V 
2830 GOTO 20000 
2860 PRINT "□" 
2870 PRINT:TX = 71 :GOSUB 9900 
2880GOSUB20000 
2890J = INT{RND(1)'6) + 1 
29001Fn<1 ANDI1<1 THEN TX = 72: 

GOSUB9900:GOSUB3070 
2910IFn = 1 AND 11 = 1 AND J>3 THEN 

2990 
2920IFn<1 AND 11 = 1 THEN 2990 
2930 TX = 38: GOSUB 9900 
2940 GOSUB 20000:GOSUB 20000: 

TT$ = "" 
2950FORCC = 0TO5:QQ=INT{RND(1)*26) 

+65:n$ = CHR$(QQ) + n$:NEXTCC 
2960 TX = 73:GOSUB 9900:PRINT 

n$:n=0 

2980 GOSUB20000:GOTO 3080 

2990 TX = 39:GOSUB 9900 

3000 GOSUB 20000:GOSUB 20000:11$ = "" 

3020 FOR CC = 0TO 5:QQ = INT(RND(1)*26) 

+ 65 
3030II$ = CHR$(QQ) + II$:NEXTCC 
3050 TX = 73:GOSUB 9900: 

PRINTII$:ll = 
3070 GOSUB 20000 
3080 PRINT "□":RETURN 
3100 PRINT "□":TX = 74: 

GOSUB 9900 
3120E$(L)=JM$:F(L) = 10 



1660PRINT"FNW(30) 

1670 RETURN 

1680IFRND(18) = 1 ANDdw = rTHEN 

PROCG:RETURN 
1690CLS:N = 1:S = 1:E = 1:W=1:F = 
1700PRINT"FNW(31) 
1710 IF E$(L)<>"" THEN PRINT"There is 

a"E$(L)"passing.":F = 1 
1720 RETURN 
1730 CLS:N = 1:S = 1:E = 0:W = 1:U = 0: 

D = 1 
1740PRINT"FNW(32) 
1750 RETURN 
1760 DEFPROCA 
1770 CLS 
1780 PRINnAB(10,15)CHR$(141);CHR$ 

(130)FNW(65) 
1790PRINnAB(10,16)CHR${141);CHR$ 

(130)FNW(65) 
1800 PRINTFNW(33) 
1810D = INKEY(1500) 

1489 , 
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1820 PROCB 

1830 ENDPROC 

1840 DEFPROCB 

1850 CIS 

1860PRINnAB(10,15)CHR$(141);CHR$(129) 

"YOU'RE DEAD!" 
1870PRINTTAB(10,16)CHR${141);CHR$(129) 

"YOU'RE DEAD!" 
1880 END 
1890 CLS 
1900 IF K(3)<> -1THEN PRINT"FNW(66)" 

FI^W(67):D$ = GET$:RETURN 
1910 IF K(2)<> -1THEN PRINT"FNW(68)" 

FNW(67):D$ = GET$:L=L-6:RETURN 
1920PRINTTAB(10,15)CHR$(141);CHR$(129) 

"WELL DONE!" 
1930PRINTTAB(10J6)CHR$(141};CHR$(129) 

"WELL DONE!" 
1940PRINnAB(10,19)CHR$(141);CHR$ 

(131);"You'vewon" 
1950PRINnAB(10,20)CHR$(141);CHR$ 

(131);"You'vewon" 
1960 END 
1970DEFPROCC 
1980q = 0:FORc = 1 TO 21 
1990 IF INSTR(O$(c),T$)>0THEN q = c 
2000 NEXT 
2010 IF q = THEN PRINT'I don't 

understand n"T$".":GOTO 2070 
2020 IF K(q}= -1THEN PRINT"You've 

already got it!":GOTO 2070 
2030 IF K(q) < > L THEN PRINT"The "T$ 

"is not here!":GOTO 2070 
2040 IF p>3 THEN PRINT'You can't carry 

any more.":GOTO 2070 
2050 K(q)= -1:p = p + 1:PRINT"Okay- 
you've got it." 
2060IFT$ = FNX(FNW(166))THEN 

x = x + 600 
2070D = INKEY(250) 
2080 ENDPROC 
2090 DEFPROCD 
2100 IF E$(L) = FNX(FNW(153)) OR E$(L) = 

FNX(FNW(155))THEN PRINTFNW(69}E$(L) 

"!":PRINTFNW(34):D = INKEY(500):END 
2110 IF E$(L) = "" THEN PRINTFNW(35):d = 

INKEY(750):GOTO2440 
2120 IF E$(L) = FNX(FNW(129)) THEN PRINT 

FNW{36):d = INKEY(700):GOTO 2440 
2130C$ = "":H$ = "" 
2140 w = 1:a = 

2150IFK(20)=-1 THEN w = w + 2 
2160IFK{9)=-1 THENw=w + 3 
2170IFK(15) = -1 THENa = a + .5 
2180IFK(14) = -1 THENa = a + .5 
2190IFK(10) = -1 TH£Nw = w + 1 
2200 IF a = 1 THEN w = w + 3 
2210IFw = 1 AND CS = "" THEN 

INPUT'You want to fight with bare 

hands?(y/n)"H$ 
2220 IFE$(L} = FNX(FNW(70)) AND H$ = 



"y"THEN PRINTFNW(37):d = INKEY 

(500): PROCB 
2230 IFH$ = "y" ANDf(L)>1 AND ES(L)< 

>FNX(FNW{135)) THEN PRINT"You 

can't fight the n"E$(L) "Dwith bare 

hands!":D = INKEY(250):GOTO 2440 
2240 IF HSo'V AND w = 1 THEN 2440 
2250e = RND(6):CLS 
2260 FOR d = 1 TO 20 
2270PRINnAB(0,d)CHR$(131);CHR$(157) 
2230 NEXT 
2290PRINnAB(10,10}CHR$(141);CHR$ 

(132);CHR$(136}"Fighting!" 
2300PRINnAB(10,11)CHR$(141);CHR$ 

(132);CHR${136)"Fighting!" 
2310d = INKEY(200) 
2320IFw>f(L)ANDe>2THEN 

V = V-2:GOTO2360 
2330IFw>f(L)ANDe<=2THEN 

V = V~1:GOTO2380 

2340 IF w< =f(L)AND e> =4 THEN 

V = V-3:GOTO2360 

2350 IF w<=f(L)ANDe<4 THEN 

V = V-3:GOTO2380 
2360IFV<1 THEN PROCB 

2370 PRINT""You are wounded.'""Your vitality 

isn";V:GOTO2410 
2380IFV<1 THEN PROCB 
2390 PRINT""You have won the battle. '""Your 

vitality is n";V 
2400 E$(L) = "":D = INK£Y(250}:£NDPROC 
2410I = RND(21):IFK(I)=-1 THEN 

PRINP'You have dropped then" 

0$(l)".":K(l) = L:p = p-1 
2420 INPUP'Do you want to continue the 

fight?(y/n)"C$ 
2430IFC$ = "y"THEN2140 
2440 CLS;ENDPROC 
2450 DEFPROCE 
2460 CLS 

2470 PRINT'You have collected: -":p = 
2480 FOR c = 1 TO 21 
2490 IF K(c)=-1 THEN PRINT"the 

"0$(c)",":p = p + 1 
2500 NEXT 

2510 IF p = THEN PRINT'nothing" 
2520 PRINT'Your vitality isn";V 
2530D = INKEY(500) 
2540 ENDPROC 
2550 DEFPROCF 
2560 CLS 

2570PRINT"FNW(71) 
2580d = INKEY(100) 
2590J = RND(6) 
2600IFt<1 ANDi<1 THEN 

PRINT FNW(72):GOTO 2720 
2610 IFt = 1 ANDi = 1 AND J >3 THEN 2680 
2620IFt<1 AND i = 1 THEN 2680 
2630 PRINTFNW(38) 
2640d = INKEY(700):t$ = "" 
2650FORc = 0TO5:q = RND(26)+96:t$ = 



CHR$(q)+t$:NEXT 
2660 PRINT FNW(73)'t$:t=0 
2670 D = INKEY(300):GOTO 2730 
2680 PRINTFNW(39) 
2690d = INKEY(500):i$ = "" 
2700 FOR c = TO 5:q = RND(26) + 96: 

i$ = CHR$(q) + i$;NEXT 
2710PRINTFNW(73)'i$:i = 
2720D = INKEY(300) 
2730 CLS:ENDPROC 
2740 DEFPROCG 

2750 IF E$(L) < > "" THEN ENDPROC 
2760 CLS:PRINr'FNW(74) 
2770E${L)=JM$:f(L) = 10 
2780 N = 0:S = 0:E = 0:W = 0:U = 0:D = 0: 

F=1 
2790 ENDPROC 
2800 DEFPROCH 
2810 IF E$(L) = "" THEN PRINTFNW 

(75):D = INKEY(200):GOTO2980 
2820E$(L} = FNX(FNW(153))OR 

E$(L) = FNX(FNW(155)) THENPRINT"No 

Deal!"'FNW(34}:D = INKEY(500):END 
2830 PRINnAB{0,20);:INPUT"What are you 

prepared to offer?"offer$:value = 
2840 IFK(21)= -1AND offer$ = FNX 

(FNW(166))THEN2890 
2850 IF offer$ = FNX(FNW(166))THEN PRINT 

FNW(76):D = INKEY(300):ENDPROC 
2860 IF offers = FNX(FNW(1 26)) OR offer$ = 

FNX(FNW(77)) ANDK(1)=-1 AND 

E$(L) = FNX(FNW(70)) THEN PRINT'lt's 

adeal":D = INKEY(250):E$(L) = "": 

K(1) = 0:ENDPROC 
2870 IF offers = FNX(FNW(1 26)) AND 

E$(L) = FNX(FNW(70)) THEN PRINTFNW 

(78):D = INKEY(250):GOTO530 
2880 IF offers <>FNX(FNW(166))THEN 

PRINTFNW(79)offerS"?":D = INKEY(350): 

GOTO 2980 
2890 PRINT'You have ";x"n gold 

Dsovereigns.'"FNW(80);:INPUToffer 
2900 IF offer >x THEN PRINTFNW(81):G0T0 

2890 
2910CLS:PRINT"FNW(82):D = INKEY(250) 
2920 price = RND(12)*50 
2930 IFprice > offer D CLS:PRINT"FNW(83) 

'FNW(84);:INPUT""inc$ 
2940 IF offer > = price nTHEN2990 
2950 IF inc$ = "y" THEN 2890 
2960IFE$(L)<>FNX(FNW(129))THENPRINT 

FNW(85):D = INKEY(250):PROCD: 

ENDPROC 
2970 PRINTFNW{86):0 = INKEY(300):PRINT 

"Yousurrender.":D = INKEY(100}:END 
2980 CLS:ENDPROC 
2990 PRINT "Okay - It's a deal": E$(L) = 

"": x = x — offer 
3000IFx = 0THENK(21) = 21 
3010 IF offer < >0 THEN PRINT'You've lost 

n";offer; "gold sovereigns." 
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3020D = INKEY(250) 

3030 ENDPROC 

3040 DEFPROCI 

3050 CLS 

3060 PRINT"FNW(87) 

3070 IF 1$ = i$ ANDi = THEN 3250 

3080 IF l$ = t$ AND t = THEN 

PRINT':INPUT"Where do you wish to 

go",d$:t= -1 
3090 IF d$ = FNX(FNW(88)) OR dS = FNX 

(FNW(B9))THENL = 19:ENDPROC 
3100 IF d$ = FNX(FNW(90))OR d$ = FNX 

(FNW(91))THENL = 1:ENDPR0C 
3110 IF d$ = FMX(FNW(92})THEN L=8: 

ENDPROC 
31 20 IF dS = FNX(FNW(93)) ORd$ = FNX 

(FNW(94)) THEN L=2:ENDPR0C 
3130 IF d$ = FNX(FNW(95)) THEN L = 9: 

ENDPROC 
3140 IF d$ = FNX(FNW(96)) OR d$ = FNX 

(FNW{97))THENL = 10:ENDPROC 
3150 IFd$ = FNX(FNW(98)) THEN L = 15; 

ENDPROC 
3160 IFd$ = FNX(FNW(99))THEN L = 21: 

ENDPROC 
3170 IF d$ = FNX(FNW(100)) THEN L = 11: 

ENDPROC 
3180IFd$ = FNX(FNW(101))ORd$ = FNX 

(FNW(102))THENL = 20: ENDPROC 



3190IFd$ = FNX(FNW(103))ORd$ = FNX 

(FNW(104))THENL = 17:ENDPROC 
3200 IF d$ = FNX(FNW(105))OR d$ = FNX 

(FNW(106))THENL = 3:ENDPROC 
3210 IF d$ = FNX(FNW(107)) THEN L=12: 

ENDPROC 
3220 IF d$ = FNX(FNW(108)) OR d$ = FNX 

{FNW(109)}THENL = 13:ENDPROC 
3230 IFd$ = FNX(FNW(110)) THEN L = 5: 

ENDPROC 
3240 PRINT"! don't know where the "d$ 

"is.":INPUT"Tr¥ again"d$:GOTO 3090 
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1 780 PR!NT@264,"";:WN = 65:GOSUB51 00 

1800PRINT:WN = 33:GOSUB5100 

1810 FOR DU = 1 TO 1000: IF INKEY$ = "" 

THEN 1810 
1820 GOTO 1840 
1830 RETURN 
1840 REM *"Procb 
1850 CLS 

1860 PfilNT@266,"YOU'RE DEAD!" 
1870 PRINT@298," = = = = = = = = = 

^) 

1880 GOTO 6500 
1890 CLS 

1900IFK(3)<>-1 THEN PRINT:WN = 66: 
GOSUB5100:PRINT:WN = 67: GOSUB 



5100:EXEC41194:RETURN 
1 91 I F K(2) <> - 1 TH EN PRINT:WN = 68: 

GOSUB5100:PRINT:WN = 67: GOSUB 

5100:EXEC41194:L = L-6:RETURN 
1920 PRINT@267;'WELL DONE!" 
1940 PRINT@299,"YOU'VE WON" 
1960 GOTO 6500 
1970 REM *"Procc 
1980Q7 = 0:FORC7 = 1 TO 21 
1990 IF INSTR(0$(C7),T$)>0 THEN 

07 = 07 
2000 NEXT 
2010 IF 07 = THEN PRINT"! DON'T 

UNDERSTANDa";T$:GOTO2070 
2020 IF K(Q7)= -1 THEN PRINT"YOU'VE 

ALREADY GOT IT!":GOTO2070 
2030 IF K(Q7) < > L THEN PRINT'THED"; 

T$;" □ ISN'T HERE!":GOTO2070 
2040 IF P7>3 THEN PRINT'YOU CAN'T 

CARRY ANY MORE":GOTO2070 
2050 K(07) = - 1 :P7 + 1 :PRINT"OK- 

YOU'VE GOT IT" 
2060WN = 166:GOSUB5200:IFT$ = Z$ 

THEN X7 = X7 + 600 
2070 GOSUB5500 
2080 RETURN 
2090 REM ■" Proc d 
2100WN = 153:GOSUB5200:D1$ = Z$: 

WN = 155:GOSUB6200:IF E$(L) = D1$ 

OR E$(L) = Z$THEN WN = 69:G0SUB 

5000:PRINTZ$,E$(L);"!":WN = 34:GOSUB 

5100:GOSUB5500:GOTO6500 
2110 IF ES(L) = "" THEN WN = 35:GOSUB 

51 00:GOSUB5500:GOSUB5500:GOTO 2440 
2120 WN = 129:GOSUB5200:IF E$(L)=Z$ 

THEN WN = 36:GOSUB5100:GOSUB5500: 

GOSUB5500:GOTO2440 
2130C$ = "":H$ = "" 
2140W7 = 1:A7 = 

2150IFK(20)--1 THENW7 = W7 + 2 
2160IFK(9) = -1 THENW7 = W7 + 3 
2170IFK(15)=-1 THENA7 = A7 + .5 
2180IFK(14)=-1 THENA7 = A7 + .5 
2190IFK(10)=-1 THENW7 = W7 + 1 
2200IFA7 = 1 THEN W7 = W7 + 3 
2210 IF W7 = 1 AND C$ = "" THEN INPUT 

"FIGHT WITH BARE HANDS (Y/N)";H$ 
2220 WN=70:GOSUB5200:IF E$(L)=Z$ 

AND H$ = "Y" THEN WN = 37:GOSUB 

5100:GOSUB5500:GOTO1840 
2230 WN = 135: GOSUB5200:IF H$ = "Y" 

AND F(L) > 1 AND E${L) < >Z$ THEN 

PRINT'YOU CAN'T FIGHT THEO"; E$(L): 

PRINT"WITH BARE HANDS!": 

GOSUB5500:GOTO2440 
2240 IF H$ <> "Y" AND W7 = 1 THEN 2440 
2250E7 = RND(6):CLS 
2260 CLS8 

2290 PRINT@268,"fighting"; 
2300 SCREEN0,1:PRINT@480,""; 
2310GOSUB5500 
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2320IFW7>F(L}ANDE7>2THEN 

V = V-2:GOTO2360 

2330 IF W7 > F(L) AND E7 < = 2 THEN 

V = V-1:GOTO2380 

2340 IF W7 < = F(L) AND E7 > =4 THEN 

V = V~3:GOTO2360 

2350 IF W7 < = F(L) AND E7 <4 THEN 

V = V-3:GOTO2380 
2360IFV<1 THEN 1840 

2370 PRINT:PRINT"YOU ARE WOUNDEDf" 

:PRINT"YOUR VITALITY IS";V:GOTO2410 
2380IFV<1 THEN 1840 
2390 PRINT:PRINT"YOU HAVE WON THE 

BATTLE!":PRINT"YOUR VITALITY IS";V 
2400 E$(L) = "":GOSUB5500:RETURN 
2410 L7 = RND(21):IF K(L7) = -1 THEM 

PRINfYOU HAVE DROPPED THED"; 

0$(L7):K(L7) = L:P7 = P7-1 
2420 INPUT "CONTINUE THE FIGHT (Y/N)";C$ 
2430 IF C$ = "Y" THEN 2140 
2440 CLS:RETURN 
2450 REM *" Proc e 
2460 CLS 

2470 PRINT'YOU HAVE COLLECTED: -":P7=0 
2480 FOR C7 = 1 TO 21 
2490 IF K(C7)= -1 THEN PRINT"THEn"; 

0$(C7):P7 = P7 + 1 
2500 NEXT 

2510 IF P7 = THEN PRINT'NOTHING" 
2520 PRINT"YOUR VITALITY IS";V 
2530 GOSUB5500:GOSUB5500 
2540 RETURN 
2550 REM •*' Proc f 
2560 CLS 

2570WN = 71:GOSUB5100 
2580GOSUB5500 
2590J = RND(6) 
2600 IF T7 < 1 AND 17 < 1 THEN WN = 72: 

GOSUB5100:GOTO2720 
2610 IFT7 = 1ANDI7 = 1ANDJ>3THEN2680 
2620 IFT7<1ANDI7 = 1THEN2680 
2630WN = 38:GOSUB5100 
2640 GOSUB5500:GOSUe5500:T7$ = "" 
2650 FOR C7=0TO 5:Q7 = RND(26) + 64: 

T7$ = CHR$(Q7)+T7$:NEXT 
2660 WN = 73:GOSUB5100:PRINTT7$:T7 = 
2670 GOSUB5500:GOTO2730 
2680WN = 39:GOSUB5100 
2690 GOSUB5500:GOSUB5500:I7$ = "" 
2700 FOR C7 = TO 5:07 = RND(26) + 64: 

l7$=CHR$(a7H-l7$:NEXT 
271 WN = 73:GOSU B51 00:PRINTI7$:I7 = 
2720 GOSUB5500 
2730 CLS:RETURN 
2740 REM "• Proc g 
2760CLS:WN = 74:GOSUB5100 
2770E$(L) = JM$:F{L) = 10 
2780 N = 0:S = 0:E = 0:W = 0:U=0:D = 0: 

F = 1 
2790 RETURN 
2800 REM •" Proc h 



2810 IF E${L) = "" THEN WN = 75:GOSUB 

5100:GOSUB5500:GOTO2980 
2820WN = 153:GOSUB5200:D1$=Z$: 

WN = 155:GOSUB5200:IF E$(L) = D1$ 

OR E$(L) = Z$ THEN PRINT'NO DEAL!": 

WN = 34:GOSUB51 00:GOSUB5500:GOTO 

6500 
2830 PRINT@416,"WHAT'S YOUR OFFER";: 

INPUTOF$:VA = 
2840WN = 166:GOSUB5200:IF K(21) = -1 

AND OF$ = Z$ THEN 2890 
2850 WN = 166:GOSUB5200:IF OF$=Z$ 

THEN WN=76:GOSUB5100:GOSUB5500: 

RETURN 
2860WN = 126:GOSUB5200:D1$ = Z$: 

WN = 77:GOSUB5200:D2$ = Z$:WN = 70: 

GOSUB5200:IF 0F$ = D1$ OR 0F$= 

D2$ AND K(1 ) = - 1 AND E$(L) = Z$ 

THEN PRINT'IT'S A OEAL":GOSUB5500: 

E$(L) = "":K(1) = 0:RETURN 
2870 IF 0F$=D1$ AND E$(L) = Z$ THEN 

WN = 78:GOSUB5100:GOSUB5500:GOTO 

530 
2880 WN = 166:GOSUB5200:IF 0F$< >Z$ 

THEN WN = 79:GOSUB5000:PRINTZ$; 

OF$;"?":GOSUB5500:GOTO2980 
2890 PRINT-YOU HAVE";X7;" GOLD": 

WN = 80:GOSUB5000:PRINTZ$;:INPUT OF 
2900IFOF>X7THENWN = 81:GOSUB5100: 

GOTO2890 




291 CLS:WN = 82:GOSUB51 00:GOSUB5500 

2920PR = RND(12)*50 

2930 IF PR > OF THEN CLS:WN = 83:GOSUB 

5000:PRINTZ$:WN = 84:GOSUB5000: 

PRINTZ$;:INPUTIN$ 
2940IFOF>=PRTHEN2990 
2950IFIN$ = "Y"THEN2890 
2960 WN = 129:IF IN$ < > "Y" AND E$(L) 

<>Z$THEN WN = 85:GOSUB5100: 

GOSUB5500:GOSUB2090:RETURN 
2970 IF IN$ <> "Y" THEN WN = 86:GOSUB 

5100:GOSUB5500:PRINT"YOU 

SURRENDER":GOSUB5500:GOTO 6500 
2980 CLS:RETURN 
2990 PRINT"OK - IT'S A 

DEAL";E$(L) = "":X7 = X7-OF 
3000IFX7 = 0THENK(21) = 21 
3010 IFOF< >0 THEN PRINT "YOU'VE 

LOST";OF,"nGOLD" 
3020GOSUB5500 
3030 RETURN 
3040 REM— Proc i 
3050 CLS 

3060WN = 87:GOSUB5100 
3070 IFI$ = 17$ THEN 3250 
3080 IF l$=T7$ AND T7 = THEN 

PRINT:INPUT "WHERE DO YOU WANT TO 

G0";D7$:n=-1 
3090WN = 88:GOSUB5300:IF D7$ = D1$ 

ORD7$ = Z$THENL=19:RETURN 
3100WN-90:GOSUB5300:IF D7$ = D1$ 

0RD7$ = Z$THENL = 1:RETURN 
3110WN = 92:GOSUB5200:IF D7$=Z$ 

THEN L=8:RETURN 
3120WN = 93;6OSUB5300:tF D7$ = D1$ 

ORD7$ = Z$THENL = 2:RETURN 
31 30 WN = 95:GOSUB5200:I F 07$ = Z$ 

THEN L = 9:RETURN 
3140WN = 96:GOSUB5300:IFD7$ = D1$ 

ORD7$ = Z$THENL = 10:RETURN 
3150 WN = 98:GOSUB5200:IF D7$ = Z$ 

THEN L = 15:RETURN 
3160 WN = 99:GOSUB5200:IF D7$ = Z$ 

THEN L = 21:RETURN 
3170WN = 100:GOSUB5200:IFD7$ = Z$ 

THENL = 11:RETURN 
3180 WN = 101:GOSUB5300:IF D7$ = D1$ 

ORD7$ = Z$THENL = 20:RETURN 
3190 WN = 1 03:GOSUB5300:IF D7$ = D1 $ 

ORD7$ = Z$THENL = 17:RETURN 
3200WN = 107:GOSUB5300:IFD7$ = D1$ 

ORD7$ = Z$THENL = 3:RETURN 
3210 WN = 107:GOSUB5200:IFD7$ = Z$ 

THENL = 12:RETURN 
3220 WN = 108:GOSUB5300:IF D7$ = D1$ 

0RD7$ = Z$THEN L = 13:RETURN 
3230WN = 110:GOSUB5200:IFD7$ = Z$ 

THEN L=5:RETURN 
3240 PRINT"! DON'T KNOW WHERE THE 

";D7$:INPUT "IS, TRY 

AGAIN";D7$:GOTO3090 
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Algorithms 

in games 

use of in Pascal 

1354, 
Animation 
of sprites 

Commodore 64 
with LOGO 
Applications 

horoscope program 
music composer program 
1333-1337, 

PERT program 

1429-1433, 
room planner program 

1269-1275, 
test card program 
Artificial intelligence 
in Cavendish Field game 
using LISP 



1372-1373 
1389-1390 



1259-1263 
1317-1320 

1245-1253 

1392-1396, 
1416-1423 

1466-1473 

1308-1313 
1474-1475 
1264, 1294 
1372-1377 
1410-1411 
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Basic programming 

file handling 1358-1364 

fractals 1397-1401, 1434-1439 

moving colour sprites 

Commodore 64 1258-1263 

operating system 1322-1327 

perspective drawing 1461-1465 

recursion 1289-1295 

screen dump programs 1365-1371 

c 

Cavendish Field game 

part 1 — design rules and 

UDGs 1254-1257 

part 2 — map and troop arrays 

1282-1288 
part 3 — issuing orders 

1301-1307 
part 4 — combat and morale 

routines 1346-1351 

part 5 — strengthening the 

computer 1372-1377 

Clifflianger 
part 12— adding weather 

1240-1244 
part 13 — rolling boulders 1 

1276-1281 
part 14 — rolling boulders 2 

1328-1332 
part 15 — walking Willie 

1338-1345 
part 16 — jumping Willie 1 

1378-1385 
part 17 — jumping Willie 2 

1402-1409 
part 18 — death, sound and 

end routines 1440-1447 

part 1 9 — Willie scores and 
speeding up 1476-1481 



Colour 

code guessing game 
of sprites 

Commodore 64 
representing in tonal screen 

dump 1369^1371 

shading effects 1464-1465 



1356-1357 



1262 



H 



D 



Data, separate storage of 1358-1364 
Desperate decorator game 

1314-1316 
Dictionary, in FORTH 1482 

Dot command, in FORTH 1485 



Editing 

with LOGO 
with Pascal 
Escape adventure game 



part 1 
part 2 
part 3 



1296 
1355, 1391 

1424-1428 
1450-1455 
1486-1492 



Factorials, calculating 
BASIC program for 1291-1293 
in LISP 1458-1459 

Files, handling 1358-1364 

FORTH 
Part 1 — terminology and stack 
manipulation 1482-1485 

Fractals 1397-1401, 1434-1439 



Games 

Cavendish Field 1254-1257, 

1282-1288, 1301-1307, 
1346-1351, 1372-1377 

cliffhanger 

1240-1244, 1276-1281, 
1328-1332, 1338-1345, 
1378-1385, 1402-1409, 
1440-1447, 1476-1481 

desperate decorator 1314-1316 

escape 1424-1428, 1450-1455 

1486-1492 

horoscope program 1245-1253 

life 1237-1239 

'match that* 1356-1357 

Graphics 

displays, programs for dumping 

1365-1371 

moving and storing sprites 

Cormmdore64 1258-1263 

perspective drawing 1461-1464 

shading 1464-1465 

using fractals 

1398-1401, 1434-1439 

using LOGO 

1296-1300, 1317-1320 



Heuristics, use of in Cavendish Field 

1373-1377 

Horoscope program 1245-1253 



Languages 

FORTH 1482-1485 

LISP 1410-1415, 1456-1460 

LOGO 1264-1268, 1296-1300, 

1317-1321 

Pascal 1352-1355, 1386-1391 

Life game 1237-1239 

LIFO principle 1484 

LISP 1410-1415, 1456-1460 

LOGO 1264-1268, 

1296-1300, 1317-1321 

M 

iVlachine code 

games programming 

see cliffhanger; life game 
program to play background 
music 

Acorn, Commodore 64 1448-1449 
tonal screen dump 1369-1371 

'Match that' colour code 

guessing game 1356-1357 

Mathematical functions 
in fractal geometry 

1397-1401, 1434-1439 

with FORTH 1485 

with LISP 1415 

with LOGO 1320 

Memory 

advantages of Pascal in 1353 

banks, range of 

Commodore 64 1258-1259 

checking with LOGO 1299 

locations of VIC-II chip 

Commodore 64 1262 

managing by OS 1323-1327 

storing LISP in 1459-1460 

storing sprites in 

Commodore 64 1258-1260 

Music 

background, program to play 
Acorn, Commodore 64 

1448-1449 

composer program 1333-1337, 

1392-1396, 1416-1423 







Operating system 



1322-1327 



Pascal 1352-1355, 1386-1391 

Perspective drawing 1461-1465 
PERT program 

part 1— the database 1429-1433 



pan 2 — using the program 

1466-1473 

Painters, sprite 

Commodore 64 1260-1261 

Procedures, 

in LOGO 1268, 1296-1300 

Punctuation, 

when handling files 1360-1363 

with FORTH 1484-1485 

with LISP 1412 

with LOGO 1320-1321 

with Pascal 1354-1355, 1391 



Q 



Quicksort program, recursive 

1293-1294 



R 



Recursion 

in BASIC 1289-1295 

in fractal programs 1 398- 1 40 1 , 

1434-1439 
in LISP 1458-1459 

in LOGO 1299-1300 

Reverse Polish notation (RPN) 

1485 
Room planner program 

1269-1275, 1308-1313 



Screen dumping, of graphics 

1365-1371 
Screens, in FORTH 1482 

Shading, with colour 1464-1465 

Sprites, Commodore 64 

moving and storing 1258-1263 

Sprites, LOGO 1317-1320 

Stack, manipulation of 

in FORTH 1484-1485 



Test card program 1474-1475 

Towers of Hanoi program 

1294-1295 
Turtle 1266-1268, 1296-1300 

u 

User-defined functions, 

in FORTH 1484 

in LISP 1456-1459 



V 



VlC-n chip 

Commodore 64 1258 

Vocabularies, in FORTH 1484 



w 



Wat^ames 

sec Cavendish Field 



The publishers accept no responsibility for unsolicited material sent for publication in INPUT. All tapes and 
written material should be accompanied by a stamped, self-addressed envelope. 



COMING IN ISSUE 48, . . 



LJTry to outbluffyour computer. No 
matter how hard you try, when playing 
SCISSORS, PAPER, STONE, it'll see 
right through you by making fast 
statistical calculations 

CJ Make life easier for yourself vohen 
developing and debugging programs. 
Our PROGRAM CROSS-REFERENCER 
is a handy utility which will list selected 
lines and search for and replace variable 
names 

CJGo FORTH and ivrite stacks of 
programs after you've found out how to 
structure this fast and efficient general 
purpose language 

OTry out some serpent training, or 
spend a night on the reptiles in 
Cliffhanger. Add routines to SHAKE 
THOSE SNAKES and poke their tongues 

CJ . . . and continue with ESCAPE 



A MftRSHALL CAVENDISH UM COMPUTEK COURSE IN WEEKLV PARTS 



LEARN PROGRAMMING - FOR FUN AND THE FUTURE 



KAh* ^ 







ASK YOUR NEWSAGENT FOR INPUT 
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